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COURSE DESCRIPTION 
Fi5D Multics Subsystem Programming 


Five Days 


Advanced Muitics PL/I programmers, familiar with standard 
Multics subroutines, who need to use advanced Multics 
subsystem writer's tools. 


This intensive course describes how to bypass, replace, 
or supplement the standard Multics user interface by 
using system subroutines. Interprocess communication, 
tailoring the command environment, the message segment 
facility, the Multics ring mechanism, writing gates, 
dialing terminals to a process and writing I/O modules 


are among the topics covered in this course. 


‘Interactive workshops are included to reinforce the 


material presented. 


Upon completion of this course, the student should be 
able to: 


1. Use subsystem writer's subroutines. 


2. Use a wide variety of facilities to create an 
environment tailored to the needs of a particular 
group of users. 


3. Understand the conventions compilers should follow 
when creating object segments. 


4. Understand how gates and I/O modules are written. 
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INTRODUCTION 


@ A BASIC GOAL OF THE Multics SYSTEM DESIGN PHILOSOPHY: 


TO PROVIDE A SYSTEM WHICH IS OPEN-ENDED ANDO CAPABLE OF SUPPORTING 
USER DESIGNED SUBSYSTEMS 


| TO ACHIEVE THIS, Multics 
) HAS BEEN HIGHLY MODULARIZED 


I FUNCTIONALITY LOCALIZED 


d | COMPLEXITY OF ANY GIVEN MODULE MINIMIZED 


| IS MOSTLY WRITTEN IN PL/I 
MORE EASILY READ THAN ALM 
f ENABLES ADOPTION OF SUBSYSTEMS FROM OTHER MACHINES USING 
PL/I 7 | | 


2D FEATURES A WEALTH OF TOOLS TO HELP DESIGN, IMPLEMENT, AND 
MAINTAIN SUBSYSTEMS 


® THIS COURSE IS DESIGNED TO: 


J INTRODUCE MOST TOPICS COVERED IN THE SUBSYSTEM. WRITERS' GUIDE 
(SWG) 


J COVER IN DETAIL SEVERAL ADVANCED TOOLS AND TECHNIQUES OFTEN USED 
IN WRITING SUBSYSTEMS, — 


J. PROVIDE INSIGHT INTO HOW TO WRITE SUBSYSTEMS "THE Multics WAY" 
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TERMINOLOGY 


@ A SUBSYSTEM CAN BE DEFINED A VARIETY OF WAYS: 


J A "SYSTEM" WHICH OPERATES WITHIN THE CONFINES OF ANOTHER, LARGER 
SYSTEM | 


J PROGRAM(S) THAT PROVIDE A SPECIAL ENVIRONMENT FOR SOME PARTICULAR 
PURPOSE 


f PROGRAM(S) THAT PROVIDE A NUMBER OF OPERATIONS ON SOME RESTRICTED 
UNIVERSE OF DATA 


@ EXAMPLES OF STANDARD Multics SUBSYSTEMS: qedx, ted, emacs, calc, 
probe, read mail, send_ mail, help, 


@ A SUBSYSTEM IS SAID TO BE CLOSED IF: 
) ALL NECESSARY OPERATIONS CAN BE HANDLED WITHIN THE SUBSYSTEM 


NO WAY EXISTS TO USE THE NORMAL MULTICS ENVIRONMENT FROM WITHIN 
THE SUBSYSTEM 


EXAMPLE: THE 'fast' SUBSYSTEM 


i] 


end 
in) 
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)veston CONCERNS 


@ HAS THE PROBLEM ALREADY BEEN SOLVED? 


@ SECURITY 
1 IS SUBVERSION A REAL CONCERN? 
) WILL ACL ALONE SUFFICE, OR MUST WE RESORT TO RINGS AND AIM? 
1 CLOSED SUBSYSTEM? 

@ HOW SHALL WE INTERFACE WITH THE STORAGE SYSTEM? 

--PEMPORARY SEGS 

AREAS 

PERMANENT SEGS, MSFs 


NAME AND ADDRESS SPACE MANAGEMENT 
USE MULTICS I/O SYSTEM? 


@ WILL PROCESSES NEED TO COMMUNICATE WITH EACH OTHER? 


Not To Be Reproduced j=3 F15D 


DESIGN CONCERNS 


@ DOES THE SUBSYSTEM HAVE A "MULTICS FLAVOR"? 


N 


@ DOCUMENTATION 


@ SUBSYSTEM LIBRARY MAINTENANCE 


a 
fz 
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@ THE OPPORTUNITIES FOR SUBSYSTEM DESIGN IN Multics ARE VIRTUALLY 
UNLIMITED, AND THE SUBSYSTEM DESIGNER MAY: 


MODIFY THE COMMAND INTERFACE TO THE Multics STORAGE SYSTEM 
MANIPULATE THE ADDRESS SPACE OF A USER PROCESS 

MODIFY THE ena ENVIRONMENT OF A USER PROCESS 

WRITE COMMAND AND/OR ACTIVE FUNCTION PROCEDURES 

WRITE A COMMAND PROCESSOR PROCEDURE 


HANDLE CONTROL COMMUNICATION BETWEEN ANY NUMBER OF ASYNCHRONOUS, 
COOPERATING PROCESSES 


USE TIMERS 
INTERFACE NEW I/O DEVICES, MONITOR EXISTING 1/0 DEVICES, ETC. 


MODIFY, RESTRICT, OR REPLACE ENTIRELY THE PROCESS ENVIRONMENT 
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CAPABILITIES FOR SUBSYSTEM DESIGN IN MULTICS 


f DIAL TERMINALS TO A PROCESS, OR ALLOW A PROCESS TO DIAL OUT TO A 
TERMINAL : 


J WRITE GATES 
) MANIPULATE MESSAGE SEGMENTS 
f CREATE, UPDATE, AND IN GENERAL, MAINTAIN PROGRAM LIBRARIES | 


f AND MANY, MANY OTHER THINGS 
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SUBSYSTEM DESIGN TOOLS 


@ TO ACHIEVE SOME OF THE SUBSYSTEM DESIGN TASKS MENTIONED ABOVE, THE 
DESIGNER HAS AVAILABLE A WIDE VARIETY OF RESOURCES INCLUDING: 


f COMMANDS AND SUBROUTINES 


SOURCE PROGRAMS 
| WHOSE PERUSAL SHOWS THE DESIGNER HOW Multics DOES IT 


1 WHICH MAY BE COPIED AND MODIFIED TO YIELD CUSTOMIZED BEHAVIOR 
§ PL/1 AND ALM INCLUDE FILES 
1 PROGRAM LIBRARY MAINTENANCE TOOLS 


0 EXPEDITE ACCESS TO SYSTEM SOURCE, OBJECT AND INFO SEGMENTS 
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STORAGE SYSTEM SUBROUTINES 


TOPICS 2, 3 AND 4 PRESENT THE SOFTWARE WRITERS' GUIDE (SWG) SUBROUTINES 
USED IN MANIPULATING THE STORAGE SYSTEM 


THE FOLLOWING LIST PROVIDES A COMPARISON OF THE STORAGE SYSTEM 
MANIPULATING SUBROUTINES COVERED IN F15C AND F15D 


J EXCEPT WHERE NOTED Fi5C SUBROUTINES ARE DOCUMENTED IN THE 
SUBROUTIN MANUAL (AG93) AND F15D SUBROUTINES ARE DOCUMENTED IN 
THE SWG (AK92) 


STORAGE SYSTEM SUBROUTINES 


| F15C F15D 7 
| CREATING STORAGE SYSTEM ENTITIES . 


| hes $append_branch 
hes $append_branchx 
hes $append_link 
hes $create_branch_ 
hes $make_seg 


DELETING STORAGE SYSTEM ENTITIES 


delete  -~ . 

hes $delentry_ file 

hes $delentry seg 

hes $del_dir_tree (AK92) 


| OBTAINING STATUS INFORMATION 


hes $get_author 
hes $get_be author 

hes $get_ link target 
hes $get max- length 

hes $get max length seg. 
hes $get safety sw 
hes $get_ safety sw_seg 
(hes $set_max_length) 
(hes $set_max_length_seg) 
(hes $set_ safety sw) . 
(hes $set_ safety sw_seg) 


hes $status_ 
hes $status long 
hes $status minf 


la > at : 
hes $status mins 
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STORAGE SYSTEM SUBROUTINES 


WORKING, DEFAULT, AND PROCESS DIRECTORIES : 


change wdir 
get_default_wdir_ (AK92) 
get_ pdir_ 

get_ wdir_ 


MANIPULATING THE ADDRESS AND NAME SPACES 


hes $fs_ get path_name 
hes $fs_ get_ ref name 
hes _  $fs_ get_ seg_ ptr 
hes $initiate 

hes ; Sinitiate_ count 
hes. | $make_ seg 

| hes |  $terminate_ file 

i hes , $terminate_ name 
hes  $terminate | noname 
i hes _  $terminate_ seg 
term | $refname 

term . $seg_ ptr 

term | $single_ refname 
term ) $tern_ 

tern ) $unsnap 


| MULTISEGMENT FILES | | 


| msf - manager_ $acl_ add 

msf _manager _ $acl_ delete 
msf | _manager_ ~$acl_ list 

| msf | _manager ~$acl_ _replace 
msf | _manager_ “gad just 

msf _Manager_ ~~ $elose 

msf ; _Mmanager_ _$get_ ptr 

msf _manager_ ~ $open 
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STORAGE SYSTEM SUBROUTINES 


NAMING AND MOVING DIRECTORY ENTRIES 


hes $chname file 
hes ; $chname_ seg 
hes  $fs | move file 
hes $fs_move_ seg 


AFFECTING LENGTH OF ENTRIES ~ 


adjust bit count_ 
hes $set_be . 

hes $set be seg 
hes $truncate file 
hes $truncate_seg_ 


MANIPULATING PATHNAMES 


absolute _pathname_ 
absolute zthnane add_ suffix. : 
expand_ pathname _ 


expand pathname . gad 


MANIPULATING THE STAR AND EQUAL CONVENTION 


check star _name_ 

get_ equal _name_ 
| nes | $star_ 
match_ star | name_ 
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STORAGE SYSTEM SUBROUTINES 


get_system free area (AK92) | area_info 
a : area status * 
create area * 
define area 
release area 
set_system_storage * 
set_ user _storage # 


SECURITY | : 


get group id | cross ring 
get_ group id “$tag star. : cross ; ring io $allow_ cross 
hes $add_acl_ entries | -eu_$level.get (AG93)— 
hes $add_ dir_acl_ entries cu $lével_set (AG93) 
hes $delete acl_entries get_ring 
hes _ ; $delete_ dir_ acl_ entries hes _ gadd~ dir_inacl_ entries 
hes | $fs get mode hes _ | $add_ inacl_ entries 
hes  $list_ acl ; | hes | | $delete_ dir. inacl_ entries 
hes ; $list_ dir_acl hes | $delete_ inacl_ entries 
hes ; $replace_ acl hes  $get_ dir _ring_ brackets 
hes , $replace_ dir_ acl hes  $get_ ring_ brackets 
hes _ | $get_ user_ ef fmode a 
hes | , $list_ dir inacl_ entries 
hes . | $list_ inacl 
hes | | $replace_ dir inacl 
| hes | $replace_ inacl 
hes | ; $set_ dir _ving brackets 
hes  $set_ _entry_ bound 
hes $set_ entry bound seg 
hes $set_ring_brackets 
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* COMMANDS (INCLUDED FOR COMPLETENESS) 
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TOPIC II 


Storage System Subroutines 


_ | Page 

Obtaining Status Information oe ee e«¢ e& e &8®# @ 2 ee #® @© @® ® @ @ © Z2=1 
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Temporary Segments ....« e 


2-1 F15D 


OBTAINING STATUS INFORMATION 


@ hes $get_ author 
f call hes _$get_author (dir_name, entryname, chase, author, code); 


0 RETURNS Personid.Projectid.tag OF THE CREATOR OF A SEGMENT, 
DIRECTORY, MULTISEGMENT FILE OR LINK 


@ hes $get_be author 
call hes $get_be author (dir_name, entryname, be author, code); 
RETURNS Personid.Projectid,tag OF THE BIT COUNT AUTHOR OF A SEGMENT 
OR DIRECTORY 


fi BIT COUNT AUTHOR = LAST PERSON WHO SET THE BIT COUNT 
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OBTAINING STATUS INFORMATION 


@ hes $get_max_length, hes $get_max_length seg 
call hes $get_max_length (dir_name, entryname, max_length, code); 
J call hes $get_max_length_seg (seg_ptr, max_length, code); 


2 RETURNS THE MAXIMUM LENGTH (CIN WORDS) OF A SEGMENT, DIRECTORY OR 
_ LINK TARGET 


] SUBROUTINES THAT CAN CHANGE THE MAXIMUM LENGTH OF A SEGMENT 
- Yj dnsawastcuan wedaeh, hes $set_max_length_seg 
1 SAME CALL ARGUMENTS AS ABOVE 
| 1 A DIRECTORY CANNOT HAVE ITS MAXIMUM LENGTH CHANGED 


ONCE MAX LENGTH HAS BEEN SET, AN out_of bounds FAULT OCCURS 
WHEN REFERENCING BEYOND END OF SEGMENT 


‘| MAXIMUM LENGTH IS SET IN UNITS OF 1024 WORDS 
2 REQUESTED LENGTH MAY NOT EXCEED Sys_info $max_seg size 


f CANNOT USE TO SHORTEN SEGMENT 
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1 stack 4 HAS INITIAL MAX LENGTH OF 64K 
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OBTAINING STATUS INFORMATION 


@ hes $get_safety_sw, hes $get_safety_ sw_seg 


J call hes $get_ safety sw (dir_name, entryname, safety sw, code); 


1 call hes $get_safety sw_seg (seg ptr, safety_sw, code); 


) RETURNS THE VALUE OF THE SAFETY SWITCH OF A DIRECTORY OR SEGMENT 


f SUBROUTINES THAT CAN CHANGE THE VALUE OF THE SAFETY SWITCH: 
f hes $set_safety_sw, hes $set_safety_sw_seg 


SAME CALL ARGUMENTS AS ABOVE 


e hes $get_link target 


9 -call hes $get_link_target (dir_name, entryname, link dir_name, 
link_entryname, code); 


{ RETURNS THE TARGET PATHNAME OF A LINK 


NA? ba bor r ss ow eer ~ , 
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OBTAINING STATUS INFORMATION 


@ ON THE FOLLOWING PAGES IS AN EXAMPLE USING SOME OF THE SUBROUTINES 
PROVIDING STATUS INFORMATION 


[IT ALSO SERVES AS A REVIEW OF SOME ITEMS INTRODUCED IN F15C 
> WRITING A COMMAND — 


DT USING ioa_ AND ‘com_err_ 


f IN YOUR FIRST WORKSHOP YOU WILL BE ASKED TO ENHANCE THIS PROGRAM 
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OBTAINING STATUS INFORMATION 


STATUS: proc; 
del cu_$arg count entry (fixed bin), 
cu_$arg_ptr entry (fixed bin, ptr, fixed bin, fixed bin (35)), 
hes $status minf entry (char (#), char (#), Fixed bin (1), 
fixed bin (2), fixed bin (24), fixed bin (35)), 
hes $get_ safety_ sw entry (char(*) ,char(*),bit (1),fixed bin (35)} 
hes $get_max_length entry (char (4), char (*), fixed bin (19), 
: fixed bin (35)), 
hes __F8et_ author entry (char (*), char (#); fixed bin (1), char (*), 
, fixed bin (35)), 
expand_ pathname_ entry (char(*),char(*), char(*), fixed bin (35)), 
(ioa_, com_err ) entry eres (variable); 
del nargs fixed bin; 
del argl fixed bin; 
del argp ptr; 
del arg char (argl) based (arepy: 
del dir char (168); 
del entry char (32); 
del code fixed bin (35); 
del type fixed bin (2), 
be fixed bin (24), 
author char (32), 
max .length fixed bin (19), 
safety _sw bit (1), 
ME char (6) static init ("STATUS") options hecuseaueis 
del error_table $wrong_no_of args ext fixed bin (35); 


/® VERIFY NUMBER OF ARGUMENTS #/ . ae 
call cu_$arg_count (nargs); : ; 
if nargs “= 1 then do; - 
call com_err_ (error_ table_$wrong_no_of args, ME); 
return; . 
end; 


/* PROCESS SEGMENT NAME ARGUMENT */ 
call cu_$arg_ptr (1, argp, argl, code); 
call expand pathname (arg, dir, entry, code); 
if code “= 0 then call ERROR; 


/* FIND OUT WHAT TYPE OF- BRANCH IT IS #*/ 


call hes $status minf (dir, entry, 0, type, be, code); 
if code ~= 0 then call ERROR; ‘ 
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OBTAINING STATUS INFORMATION 


/* TELL THE USER */ 

if type = 2 & be “= 0 then 
eall ioa ("*a is a “i component multisegment file", 
entry, be); 

else call ioa ( | 
"*a is a “flink* segment : directory” j 

“with bit count. aja 

entry, type+l, ligne. = 1), be); = 


/*® GET OTHER INFORMATION AND REPORT IT TO THE USER #/ 
call hes $get_author (dir, entry, 0, author, code); 
if code “= 0 then call ERROR; 
call hes $get_max_length (dir, entry, max_length, code); 
if code “= 0 then call ERROR; 
call hes $get safety sw (dir, entry, safety_sw, code); 
if code “= 0 then call ERROR; 
call ioa_ (" It was created by “a, 
it has a max length of “i, 
and the safety switch is -ton*;off*]." 
— author, max_length, safety_sw); 
ERROR: proc; 
call com_err_ (code, ME); 


goto FINISH; si Chandy 


end; 


FINISH: end STATUS; 
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OBTAINING STATUS INFORMATION 


{STATUS STATUS.pl1 
STATUS.p1l1 is a segment 
with bit count 23256 
It was created by NDibble.MEDmult.a, 
it has a max length of 261120, 
and the safety switch is off. 


!STATUS < 
NDibble is a directory 


It was created by Initializer.SysDaemon.z, 
it has a max length of 65536, 
and the safety switch is on. 


ISTATUS test file 
test_file is a 2 component multisegment file 
It was created by NDibble.MEDmult.a, 
it has a max length of 65536, 
and the safety switch is off. 


{1k >Dudd>F15D>si1 blurp 


ISTATUS blurp 
blurp is a link 


It was created by NDibble.MED.a, 
it has a max length of 65536, 
and the safety switch is off. 


'sml STATUS.pl1 40960 


!STATUS STATUS.p11 
Sarees pli is a segment 
with bit count 23292 
It was created by NDibble.MEDmult.a, 
it has a max length of 40960, 
and the safety switch is off. 


{STATUS *# 
STATUS: Entry not found. 
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MULTISEGMENT FILES 


@ MULTISEGMENT FILES ARE: 
{| FILES THAT USE MORE THAN ONE SEGMENT FOR STORAGE 


1 COMPOSED OF ONE OR MORE COMPONENTS, EACH IS A SEGMENT, AND IS 
IDENTIFIED BY AN UNSIGNED INTEGER 


J VIEWED BY MANY MULTICS SUBROUTINES AS DIRECTORIES 
USED FOR LARGE LISTINGS, INDEXED FILES, ETC. 


J MANAGED BY THE msf_manager_ SUBROUTINE 


6 MANIPULATING A MULTISEGMENT FILE REQUIRES USE OF A MULTISEGMENT 
FILE CONTROL BLOCK 


~~ 


) THE CONTROL BLOCK FOR A MULTISEGMENT FILE IS CREATED AND MAINTAINED 
BY THE msf_manager_ IN THE USER'S PROCESS DIRECTORY 


@ LOCATIONS IN A MULTISEGMENT FILE ARE SPECIFIED BY A PATHNAME, CONE ORENS 
NUMBER AND WORD OFFSET WITHIN THE COMPONENT 
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MULTISEGMENT FILES 


msf_manager_$open 
{| call msf_manager_$open (dir_name, entryname, fcb_ ptr, code); 


) CREATES A FILE CONTROL BLOCK IN SYSTEM AEREE STORAGE AND RETURNS 
A FILE CONTROL BLOCK POINTER 


J THE MSF NEEDN'T EXIST (A FCB IS STILL ALLOCATED) 


) THE feb ptr IS USED BY ALL FUTURE CALLS TO msf_manager_ 


msf_manager_$get_ ptr 


J eall- msf - manager_ $get_ptr (fcb_ptr, component, create _SW, 
seg ptr, be, code) ; 


1 RETURNS A POINTER TO A SPECIFIED COMPONENT IN THE MSF 
-q COMPONENT IS AUTOMATICALLY CREATED, IF create_sw = "1"b 


IF THE FILE IS A SINGLE SEGMENT FILE AND A COMPONENT GREATER 
THAN O IS REQUESTED, THE SEGMENT IS CONVERTED INTO A MSF 
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MULTISEGMENT FILES 


tpr MSF.pli 


MSF: proc; 
del nsf "_manager_ $open entry (char(#), char(*), 
ptr, fixed bin(35)); 
del msf _tanager_ $get_ ptr entry (ptr, fixed bin, bit(1), 
| “ptr, fixed bin(24), fixed’ bin(35)}; 
del hes , $initiate entry (char(*), char(*), char(*), 
fixed bin(1), fixed bin(2), ptr, fixed bin(35)); 
del code fixed bin (35); 
del (feb ptr, seg ptr) ptr; 
del be fixed bin (24); 
del sysprint file; 
del ioa_ entry() options(variable); 


eall hes $initiate (">udd>MED>nd>F 15D", "test file", "", 
0, 0, seg ptr, code): 


call ioa ("* ots", seg ptr); 
/* PROBE BREAKPOINT SET HERE #/ 


call msf. _manager_ $open (">udd>MED>nd>F15D", "test file", 
feb_ptr,code); 


call safle suawens <ecepes (tet bee: 0, "O"b, seg_ptr, be,code); 
call ioa_ ("*/Component 0 starts at *p", seg ptr); 
gall msf_manager_$get_ptr (feb ptr, 1, "1"b, seg_ptr, be, code); 
call ioa_ (**/Component i starts at “p", seg ptr); 
end MSF; | 
icreate test file 
!ls test file _ 
Segments = 1, Lengths = 0. 
row 0 test file 


IMSF 


50310 
Stopped after line 17 of MSF. (level 7) 


!,.irn 503 
503 >udd>MED>nd>F15D>test file 
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MULTISEGMENT FILES 


fcontinue 


Component 1 starts at 501;0 


firn 503 501 | 
503 >udd>MED>nd>F15D>test_file>0 
501 >udd>MED>nd>F15D>test_file>1 


lls test file | 
Multisegment-files = 1, Lengths = 1. 
row 1 test file 


Not 
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MULTISEGMENT FILES 


@ msf_manager_S$adjust 
J call msf_manager_$adjust (feb ptr, component, be, switch, code); 
| OPTIONALLY SETS THE BIT COUNT, TRUNCATES AND TERMINATES A COMPONENT 


] SWITCH HAS 3 BITS 


IF BIT 1 Is ON THE BIT COUNT IS SET (BIT COUNT OF ALL COMPONENTS 
< component SET TO sys_ antesnek. seg size) 


J IF BIT 2 1S ON THE COMPONENT Is TRUNCATED 


J -IF BIT 3 IS ON THE COMPONENT IS TERMINATED 


J ALL COMPONENTS WITH NUMBERS GREATER THAN THE GIVEN COMPONENT ARE 
pEREeS2 


@ msf_manager_$close 


™~ 


1 call msf_manager_$close (feb_ptr); 


q TERMINATES ALL COMPONENTS OF THE MSF, FREES THE FILE CONTROL 
BLOCK, AND SETS feb_ptr NULL 
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MULTISEGMENT FILES 


msf_ manager_ ACL ENTRY POINTS ARE SIMILAR TO hes_ ACL ENTRY POINTS 


hes msf_manager_ 
list_acl acl list 
replace acl . eee 
add_acl_entries | : scicada 
delete_acl_entries : acl_ delete 


-. F15D 


ra) 
to 
a 
ny | 
o 
As) 
% 
) 
2. 
5 
d 
2. 
nN 
a 
sal 
WwW 


TEMPORARY SEGMENTS 


@ TEMPORARY SEGMENTS 
] RESIDE IN THE PROCESS DIRECTORY 
2 ARE MANAGED AS A POOL 


] HAVE A NAME OF THE FORM: 


<unique_name>.temp.<seg_number> 


2 ARE HEAVILY USED BY MANY COMMANDS, SUCH AS qedx 


@ TEMPSEG POOLING ENABLES THE USE OF THE SAME TEMPSEG MORE THAN ONCE 
DURING THE LIFE OF A PROCESS, RESULTING IN A REDUCED COST TO THE 
PROCESS : 


@® THE list temp Segments COMMAND GIVES DETAILED INFORMATION ABOUT THE 
STATE OF A PROCESS' TEMPORARY SEGMENT POOL 
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TEMPORARY SEGMENTS 


@ FOUR SUBROUTINES MANIPULATE -TEMPORARY SEGMENTS: 


1 get temp segments 
1 call get temp segments (program_name, ptrs, code); 
1 RETURNS POINTERS TO TEMPORARY SEGMENTS FOR A SPECIFIED PROGRAM 


§ CALLER SUPPLIES | 
0 NAME OF REQUESTING PROGRAM 


1 AN ARRAY OF POINTERS WHOSE EXTENT EQUALS THE NUMBER OF 
TEMPSEGS DESIRED 


| SEE ALSO get_temp segment_ 
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TEMPORARY SEGMENTS 


1 release_temp_segments_ 


call release temp segments (program_name, ptrs, code); 


USED TO RETURN TEMPORARY SEGMENTS TO THE FREE POOL (SO THAT 
THEY MAY BE REUSED, IF DESIRED) 


CALLER SUPPLIES 
2 NAME OF PROGRAM "OWNING" THE TEMPSEGS 


| ARRAY OF POINTERS TO THE TEMPSEGS TO BE RETURNED TO POOL 


THE TEMPORARY SEGMENTS BEING *RETURNED' ARE NOT DELETED 


IF RELEASE IS SUCCESSFUL, POINTERS ARE NULLED 


_ ANY-ATTEMPT TO RELEASE TEMPSEGS NOT "OWNED" BY REQUESTOR RESULTS 


IN error_table $argerr; PASSED POINTERS ARE UNCHANGED. 


SEE ALSO release_temp segment_ 
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TEMPORARY SEGMENTS 


! pr DEMO TEMP_SEGS.p11 


DEMO TEMP SEGS: proce; 
del get_ temp_ segments entry (char(*), (*) ptr, fixed bin(35)); 
del release temp segments entry (char(*), (#) ptr, fixed bin(35)); 
del error table $argerr fixed bin(35) ext static; 
del ioa entry Options (variable); 
del p_array(3) ptr; 
del code fixed bin(35); 
call get_ temp segments ("requestor_1", p_ array, sage 
call ioa_ ("Check the following tempseg segnos:*/*(* 2x* p*)", p_array); 
call release _ temp_segments§ ("requestor _ 2", p_array, node): 
if code = error table _ $argerr then call” ioa_ 
("requestor_ 2 may not free segments owned by requestor 14): 

call ioa 

("Pointers after a bad call to release temp segments are:*/*(*2x*p*)", 

p_array); 

call release temp segments ("requestor_1", p array, code); 
end DEMO _TEMP_SEGS; ~ 7 


! list temp segments | 
. 12 Segments, 11 Free 


!1BBBJHmQJDkmGxW.temp.0315 command_processor_ 


DEMO _TEMP_SEGS 
Check the following tempseg segnos: 
34410 35410 35510 
requestor 2 may not free segments owned by requestor_ 1. 
Pointers after a bad call to release temp pmemenke are: 
34410 35410 35510 


Irn 344 354 355 
344 >process_ dir_dir>!BcDBdwpbBBBBBB> i BBBJHmQJGF jKqg. temp. 0344 


354 >process dir _dir>!BcDBdwpbBBBBBB> ! BBBJHmQJkkPNPb.temp.0354 
355 >process dir dir>!BcDBdwpbBBBBBB> ! BBBJHmQJkkkW1f.temp.0355. 
! list — rene segments 
Segments, 11 Free 


!BBBJHmQJDkmGxW.temp.0315 command processor _ 


Not To Be Reproduced 2-17 _ . FISD 
(End Of Topic) 


TOPIC III 


Storage System Subroutines (cont) 


Star and Equal Conventions . 


Area Manipulation. . oe es ee © «© © © © © © # & © © 
| Introduction . . « « «© © « «© © «© © © © © «© @ @ 
Area Format. .. . “ee a a a ee ae 

. Area. Manipulating Subroutin NOS se: so Sa he 
Area. Related Commands. ee 2 8 @ ee 8 © &8© e @ @ 


ee o'e 6 @ 


eee eee 


ee ee # @ e 


Page 


3-1 
3<8 
3-8 
3-9 
3-12 
3-16 


F15D 


ae eee 2 a 


e) 
= 
< 
t 
= 
- 
fj 
Cc 
= 
7) 


STAR AND EQUAL ¢ 


@ MOTIVATION 


§ THE WRITER OF A SUBSYSTEM OR COMMAND MUST DECIDE IF HE WILL 
ALLOW THE USER TO SPECIFY ENTRYNAMES THAT USE THE STAR AND EQUAL 
CONVENTIONS 


| RECALL THAT ENTRYNAMES USING THESE CONVENTIONS CONTAIN THE 
CHARACTERS "#", wom, Wem OR NZ" 


f THE FOLLOWING sienoustnes ARE USED TO PROCESS SUCH ENTRYNAMES 
i hes $star_ 
i get_equal_name_ 
J check star_name_ 


N match _star_name_ 
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STAR AND EQUAL CONVENTIONS 


@ hes $star_ 


f call hes $star_ (dir. _name, star_name, star_select_sw, area ptr, 
star _entry_ count, star Sentry ptr, star_ names ptr, code); 


i FOR A GIVEN DIRECTORY, RETURNS AN ARRAY OF ENTRYNAMES THAT MATCH 
A GIVEN STARNAME 


1 star_select_sw DICTATES OPERATION: 
4 = LINK NAMES ONLY > 


2 = SEGS AND DIRS ONLY 
(MSF'S COME BACK AS DIRS) 


3 - SEGS, DIRS, AND LINKS 


J USER PROVIDES AN AREA FOR RETURNED ENTRYNAMES AND RELATED 
_ INFORMATION 
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STAR AND EQUAL CONVENTIONS 


star_entry_ptr 

| | type (link) ) 
type (seg) 1]. 

[innames | 

type (seg) _ 

| mnames 

Pnindex 4 

type (directory) 2 
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STAR AND EQUAL CONVENTIONS 


{print lspl1.pl1 


Lspli: proc; 
del get_system_free_area_ entry returns (ptr); 


del hes $star_ entry (char (*), char (#), fixed bin (2), 
otr. fixed bin, ptr, ptr, fixed bin (35));_ 


del 1 star_entries (star_entry count) aligned~based. (star_entry_ptr), 
2 type fixed binary (2) unsigned unaligned, 
2 nnames fixed binary (16) unsigned unaligned, 
2 nindex fixed binary (18) unsigned unaligned; 


del star_names (sum (star_entries (*).nnames) ) 
char (32) based (star_names ptr); 


del star_entry_count fixed binary, 
star ~entry_ ptr pointer, 
star_ names ptr pointer, 
code fixed bin (35), 
ioa_ entry options (variable); 


del (i, j) fixed bin; 


eall hes $star_ ("Dudd>MED>nd>F15D", "#*.p1i", 
2, get_system free area_ (), star _entry_count, 
star_entry ptr, star names Ptr code) ; 
call ioa ("i Segments match **¥.pli:*/", 
‘Star _entry count) ; 
do i = 1 to star _entry_ count; 
if star entries (i). type = |] then do; 
do j = star entries (i).nindex to- 
star entries(i).nindex + 
star _entries(i) .nnames - 1; 
gall toa (®*(*2x*]*a", 
(j “= star_ entries (i). nindex), 
| - star_names (3)); 
end; 
end; 
“end; 
free star names _ ptr->star—rames}- 
free star_entry_ptr->star_entries; 
end lspli; 
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@ OTHER ‘hes $star_ 
ABOUT ete 


STAR AND EQUAL CONVENTIONS 


tlspli — 
13 segments match **.pl1: 


decls.inel.pl1 
listen_decls. incl. pele 


listen. pli 


put_message.plt 
set_ new _command.pli 
command interceptor .pli. 


~ process_ overseer .pll 
user_real_init_admin_ PE 


release. pil 
rl.pli ie 
get_to cl .pli 
cookie.pl1 a * 
bound_prog.pl1 
lspl1.pl1 , . . 
list _pl1.pl1 


hes $star_dir_list_ 


hes $star_list_ 


THESE RETURN INFORMATION SUCH AS 


WHEN LAST 


MODIFIED, 


USED, MODE, RAW MODE, RECORD LENGTH, BIT COUNT, ETC. 
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RELATED ENTRY POINTS RETURN ADDITIONAL INFORMATION 


WHEN LAST 


STAR AND EQUAL CONVENTIONS 


@ get equal name_ 
i] eall get_equal name_ (entryname, equal_name, target_name, code); 
CONSTRUCTS A TARGET NAME FROM AN ENTRYNAME AND AN EQUALNAME 


J EXAMPLE 


ENTRYNAME > | EQUAL NAME TARGET NAME 
aeb.c | new.=.= new.b.c 


abe.def .ghi =.%%.5 abc.de.5 


® check star_name_$path 
J call check_star_name $path (path, code); 


) CHECKS THE ENTRYNAME PORTION OF A PATHNAME TO SEE IF IT HAS BEEN 
FORMED ACCORDING TO THE RULES FOR CONSTRUCTING STAR NAMES 


RETURNED CODES: 


OQ = ENTRYNAME VALID BUT ISN'T A STAR NAME 
1 - ENTRYNAME VALID AND IS A STAR NAME 
2 - ENTRYNAME IS *#*, #,.##, OR ##,# 


error_table $badstar 


1 USED, FOR EXAMPLE, BEFORE CALLING hes $star_ 
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STAR AND EQUAL CONVENTIONS 


@ check star_name Sentry 
f call check_star_name_$entry (entryname, code); 


i] ree oe check star name $path, HOWEVER, ONLY REQUIRES AN ENTRYNAME 
AS INPUT | 


@® match star_name_ 
J call match_star_name_ (entryname, star_name, code); 


f INDICATES WHETHER OR NOT entryname MATCHES star_name 
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AREA MANIPULATION 
INTRODUCTION 


@ AREAS ARE 
] STORAGE REGIONS MANAGED BY THE AREA MANAGEMENT FACILITY 


J OFTEN USED TO PASS INFO BACK AND FORTH BETWEEN USER PROCESSES 
AND THE SUPERVISOR 


{ OFTEN (BUT NOT ALWAYS) FOUND IN PROCESS DIRECTORY SEGMENTS, NAMED 
<unique>.area.linker 


@ WHY USE AREAS? 


EMPTYING AN ENTIRE AREA (USING THE ‘empty’ BUILTIN) IS EASIER 
THAN USING SEVERAL free STATEMENTS | 


] CAN allocate IN PERMANENT SEGS AND HAVE AREA MANAGER -DO ALL THE. 
- BOOK KEEPING FOR USER 


J GIVES USEFUL OPTIONS LIKE EXTENSIBILITY, ZERO ON FREE, ETC. 
J SOME SUBROUTINES REQUIRE POINTERS TO AREAS AS ARGUMENTS 


$ PL/i OFFSETS ARE USABLE ONLY IN AREAS 
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AREA FORMAT 


@® AREAS MAY BE DIVIDED INTO 4 TYPES BASED ON THE TWO FOLLOWING CRITERIA 


J EXTENSIBILITY 


f SOME AREAS ARE LIMITED TO THE SIZE OF A SEGMENT (NON-EXTENSIBLE 
AREAS) 


f OTHERS CAN "GROW" INTO TEMP SEGMENTS IN THE PROCESS DIRECTORY 
(EXTENSIBLE AREAS) 


f FREEING OF SPACE WITHIN AN AREA FOR REUSE 


SOME AREAS HAVE BLOCKS OF FREED SPACE MAINTAINED IN LINKED 
LISTS AVAILABLE FOR REUSE (FREEING AREAS) 


) OTHERS DO NOT REUSE FREED SPACE IN THE AREA -- ALL ALLOCATIONS 
ARE DONE IN "VIRGIN AREA" (NO=}FREEING AREAS) 


0 NO-FREEING AREAS ARE OBVIOUSLY HANDLED MUCH FASTER BY THE AREA 
MANAGER 


@ ALL AREAS HAVE 24 WORD HEADERS 


] EXTENSIBLE AREAS HAVE AN ADDITIONAL 12 WORD BLOCK ALLOCATED IN 
THE AREA (CONTAINS INFORMATION NEEDED BY THE AREA MANAGER TO 
EXTEND THE AREA} 
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AREA FORMAT 


@ FREEING AREAS ARE MADE UP OF: 


1. A HEADER THAT CONTAINS "THREAD HEADS" POINTING TO LINKED 
LISTS OF FREE BLOCKS (SPACE PREVIOUSLY USED AND THEN FREED) 


2. LINKED LISTS OF FREE BLOCKS (BLOCKS ARE PUT IN LIST BASED ON 
SIZE) eo se age cake ay 
FIRST LIST 8 TO 14 WORDS 
SECOND LIST 16 TO 30 WORDS 
THIRD LIST 32 TO 62 WORDS 
Ss LAST LIST STARTS AT 2##16 WORDS 
3. USED BLOCKS OF WORDS (EVEN WORD BOUNDARIES) 
4, VIRGIN SPACE 


‘ 


@ EACH BLOCK STARTS WITH 2 WORDS OF MANAGEMENT INFORMATION SUCH AS 
SIZE AND A POINTER TO THE AREA HEADER 


@® THE NEXT WORD OF AN EMPTY BLOCK CONTAINS OFFSETS TO THE PREVIOUS 
AND NEXT BLOCKS IN THE LINKED LIST 
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AREA FORMAT 


@ WHEN SPACE IS FREED THE AREA MANAGER: | 


) LOOKS AT THE FIRST 2 WORDS IN THE BLOCK TO DETERMINE SIZE OF THE 
| BLOCK ao : | 


fl MERGES SMALLER ADJACENT BLOCKS IF POSSIBLE 
) THREADS THE FREED BLOCKS ONTO THE APPROPRIATE LIST 


@ NOTE es, | 
AREA MANAGER DOES NOT UPDATE BIT COUNT 


ab 
t. 
om 
omb 
| 
=a 
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AREA FORMAT 
AREA MANIPULATING SUBROUTINES 


@ get _system_free_area_ 


- f} THIS FUNCTION. RETURNS A POINTER TO THE BASE OF THE PROCESS DIRECTORY 
SEGMENT CONTAINING THE ‘system free? AREA FOR THE RING IN WHICH 
IT Is CALLED Se ae Oe 


q USER MAY USE THIS AREA AS HE/SHE PLEASES 


del A area based (get_ system free_area_() ); 
del get_ system free area_ entry returns (ptr); 
dcl alpha based (beta); 

dcl beta pointer; 


allocate alpha in (A) set (beta); 
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AREA FORMAT 
AREA MANIPULATING SUBROUTINES 


l call define area_ (info ptr, code); 
INITIALIZES AN AREA 


1 USED TO CONTROL SPECIAL AREA MANAGEMENT FEATURES: 


f EXTEND: ENABLES AREA TO GROW BEYOND MAX SIZE SET INTO TEMPSEGS 
(INSTEAD OF SIGNALLING THE area CONDITION) 


ZERO ON ALLOCATION 


f ZERO ON FREEING 


IGNORE ALL free REQUESTS (FOR DEBUGGING PURPOSES) 


f SET MAX SIZE TO SPECIFIED VALUE (0 modulo 8) 
J USES AN INFORMATION STRUCTURE FOUND IN area_info.inel.pl1 


f REGION BEING INITIALIZED 
f IS POINTED TO BY area_info.areap 


ql. Is AUTOMATICALLY ACQUIRED FROM PROCESS DIRECTORY TEMPSEG POOL 
IF area _info.areap = null() 


tad 
6 
ont 
had 
oa) | 
ond 
ut 
c 
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AREA FORMAT 
AREA MANIPULATING SUBROUTINES 


@ release area_ 
J call release _area_ (area_ptr); 


J CLEANS UP AN AREA AFTER IT IS NO LONGER NEEDED 


f RETURNS ANY TEMPSEGS TO THE POOL 


® area_info_ 
f call area_info_ (info _ptr, code); 


) FILLS IN THE USER-ALLOCATED area_info STRUCTURE (CALLER MUST SET 
area_info.areap) | | 
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del 
del 


del 


NNMNNMNMN Nh — 
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AREA FORMAT 


AREA MANIPULATING SUBROUTINES 


area _infop ptr; 


area_info aligned based (area_infop), 
version fixed bin, 

control aligned like area _ control, 
owner char (32) unal, 

n components fixed bin, 

size fixed bin (18), 
version_of_ area fixed bin, 
areap ptr, 

allocated blocks fixed bin, 
free_ blocks fixed bin, 
allocated words fixed bin (30), 
free_words fixed bin (30); 


area control aligned based, 
extend bit (1) unal, 

zero _on_ alloc bit (1) unal, 
zero on free bit (1) unal, 
dont free bit (1) unal, 

no_ freeing bit (1) unal, 
system bit (1) unal, 

pad bit (30) unal; 


AREA FORMAT 
- AREA RELATED COMMANDS 


@ AREA-RELATED COMMANDS (DOCUMENTED IN SWG) 


H. create_area 


PERFORMS define area 1s TASKS, GIVEN A VIRTUAL POINTER TO AN 
AREA ls BE ‘CREATED 


Se ee 


ENABLE A USER-CREATED AREA TO BE UEP INSTEAD OF DEFAULT "system 
free! han ‘user aves: AREAS . 


AREA SPECIFIED 
- “MUST BE ZERO ON | “FREE OR ZERO | ON, _ALLOC 
"SHOULD BE EXTENSIBLE : 


~~ 


USEFUL FOR ISOLATING BUGS WHICH ARE INADVERTENTLY DESTROYING 
INFORMATION IN EITHER ‘system free area' OR ‘user free area’ 


area status | 


COMMAND INTERFACE TO area _info_ 


| ie You ARE NOW READY FOR WORKSHOP 
H = 
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INTRODUCTION 


e “Multies HAS THREE ACCESS CONTROL MECHANISMS 
J THE ACCESS CONTROL LIST MECHANISM (ACL's) 


THE ACCESS ISOLATION MECHANISM. (AIM) 
SEE APPENDIX A 


i) THE RING MECHANISM 
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INITIAL ACL'S 


° THERE MAY BE, ASSOCIATED WITH EVERY DIRECTORY, TWO TYPES OF INITIAL 
ACL CONTROL LISTS (ONE FOR INFERIOR SEGMENTS, ONE FOR INFERIOR 
DIRECTORIES) 


® FOR EVERY SUBROUTINE THAT MANIPULATES ACL'S THERE TS A CORRESPONDING 
_ SUBROUTINE THAT BONE EUEoLee INACL'S | 


ACL ENTRY POINTS | INACL ENTRY POINTS 


hes $add_acl_ entries | hes $add_inacl entries 
hes $add_ dir acl entries hes $add_dir_inacl entries 
hes $delete_acl_ entries hes $delete_inacl_entries 


_hes_$delete_dir_acl_entries hes $delete dir _inacl_entries 


GATE et 


_hes_ $list_acl 7 ‘hes $list_inacl 
hes _$list_dir_acl | hes $list dir_inacl 
hes $replace acl : hes $replace_inacl 
hes $replace dir acl hesutenvecanaiss (esi 
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INITIAL ACL'S 


@ ALL INACL ENTRY POINTS REQUIRE SPECIFICATION OF A RING NUMBER 


@ SEGMENT INACL APPLIES TO MSF'S 


@ SEE THE COMMANDS 


sis |. - gid 
dis | . did 
lis lid 


ALL OF WHICH ACCEPT A -ring CONTROL ARGUMENT 
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RINGS 
INTRODUCTION 


INTRAPROCESS ACCESS IS CONTROLLED BY THE RING MECHANISM 


TYPICAL APPLICATIONS 


] PROTECTION OF SUPERVISOR FROM USER PROGRAMS 


1 PROTECTION OF SUBSYSTEM DATA BASE FROM DIRECT ACCESS 


CLARIFICATION OF MISCONCEPTION 
1 ALL SEGMENTS ARE NOT "IN* JUST ONE RING 


SEGMENTS MAY "SPAN" SEVERAL RINGS 


o Be Reproduced : Hol 


RINGS 
“RING BRACKETS 


@® EACH SEGMENT HAS ASSOCIATED WITH IT 3 RING BRACKET NUMBERS (THESE 
NUMBERS DETERMINE THE RING BRACKETS FOR THAT SEGMENT) 


@ RING BRACKETS DEFINE IN WHICH RING A USER CAN READ, WRITE, CALL OR 
EXECUTE A SEGMENT . 


) THE FIRST TWO NUMBERS DELIMIT THE EXECUTE BRACKET 


1 THE SECOND AND THIRD NUMBERS DELIMIT THE GATE BRACKET 
EXECUTE AND GATE BRACKETS 


Mo 


EXECUTE 
BRACKET } 
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RINGS 
RING BRACKETS 


@ RING BRACKET NUMBERS ARE EXPRESSED r1,r2,r3 


UMING A RING 4 USER, SPECIFY THE SEGMENTS FOR WHICH THE USER IS 
IN THE EXECUTE AND/OR GATE BRACKET 
Pee <i Sen ‘cial acee ane ak: Sano AAECUTE. 8=6—6. GATE 
4 4 mM oF 
0 5 5 EE 
0 0 5 
1 4 1 
3 “ig y ee ees 


@® TYP 


ICAL RING BRACKETS 
USER SEGMENTS 4,4,4 
SYSTEM COMMANDS AND SUBROUTINES 1,5,5 OR 0,5,5 


SYSTEM GATES 1,1,5 OR 0,0,5 (hes ) 


@ NOTICE THAT TO EXECUTE hes_ THE USER MUST BE IN RING 0 


HOWEVER, USERS ARE USUALLY THOUGHT OF AS BEING IN RING 4 


USERS ACTUALLY TRAVEL IN AND OUT OF THE RING STRUCTURE 


RINGS 
RING BRACKETS 


_ RING MECHANISM SUMMARY 


7 
EXECUTE 
te ee fon* 4 CORRESPONDING 
| RING OF EXECUTION . PERMITTED ACTIONS* 


READ, WRITE,AND-  — ~ 
EXECUTE 


a. | 3 READ, WRITE, 
eget © gies | EXECUTE (WITH RING 
| | | ~ CHANGE) 


READ, EXECUTE ----- 


7 EXECUTE (IF A GATE 
s ONLY, AND WITH RING 
CHANGE) 


NONE 
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RINGS 
RING BRACKET SUBROUTINES 


e get ring 


current_ring = get _ring (); 


0 RETURNS THE USER'S CURRENT RING OF EXECUTION 


@ hes $get_ring_ brackets 
J call hes $get_ring_brackets (dir_name, entryname, rb, code); 


) RETURNS (ri,r2,r3) FOR A SPECIFIED SEGMENT 


@ hes $get_dir_ring brackets 
1 call hes $get_dir_ring_brackets (dir_name, entryname, drb, code); 


J RETURNS (r1,r2) FOR A SPECIFIED DIRECTORY 


RINGS | 
- RING BRACKET SUBROUTINES | 


® hes $set ring brackets and hes $set-dir_ring brackets 


SAME CALL ARGUMENTS: AS. CORRESPONDING ENTRY POINT ON PREVIOUS 
coe PEGE ket | 


] SETS THE RING BRACKETS OF A SPECIFIED SEGMENT OR DIRECTORY 


] THE RING BRACKETS MUST BE >= THE CURRENT VALIDATION LEVEL OF THE 
"CALLING PROCESS 


I SEE ALSO THE set eae brackets (srb), set dir ring_ brackets (sdrb), 
s comms brackets _eEarR) AND iset_ dir Fing_ brackets (lsdrb) 
COMM NDS on | 
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RINGS 
GATES 


DEFINITION OF A GATE: ONLY POINT AT WHICH A PROCEDURE IN AN OUTER 


RING CAN TRANSFER TO A PROCEDURE IN AN INNER RING 
J IDENTIFIED BY PRESENCE OF GATE BRACKET (r2 < r3) 


f CHANGES USER'S RING OF EXECUTION 


GATES ARE "CREATED" BYs 
f USING alm MACROS 


f AFTER COMPILATION: 
) THE RING BRACKETS ARE SET TO THAT OF A GATE 


) THE ENTRY BOUND IS SET (DISCUSSED BELOW) 


F15D 


RINGS 
GATES 


® WHY GATES SHOULD BE WRITTEN IN alm 


1 PREVIOUSLY IT WAS POSSIBLE TO ARTIFICIALLY JUMP INTO INNER CODE 
| OF A GATE (POTENTIAL BREACH OF SECURITY) 


J alm ENABLES CAREFUL CONTROL OF OBJECT SEGMENT FORMAT (ONLY TRANSFER 
_ INSTRUCTIONS ARE PLACED AT BASE OF SEGMENT) 


| THE WRITER OF THE GATE SETS THE ENTRY POINT BOUND OF THE PROGRAM 
EQUAL TO THE END OF THE eRenEnes INSTRUCTIONS 
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RINGS 
GATES 
CROSSING RING BOUNDARIES 


put 
find 


; Object entry pointnames: 


put 
find 


Ring brackets: 


{4,5,5} 
" CALLS 
put_find_gate_ 


RING 5 fad 


Ring brackets: | 


14,4,5} 


Object entrypointnames: | 


put 
find 


Ring brackets: 


{4,4,4} 


y A READS AND WRITES 


emp 


Ring brackets: 
14,4, 4} 
pect cecr rs AS CADRE 
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an 
iw] 


@ USE hes $set_ entry bound OR hes $set_entry bound seg TO SET ENTRY 
POINT BOUND 


7 eall hes $set_entry_ bound (dir_name, entryname, entry bound, 
code); : 


J call hes $set_entry_bound_seg (seg ptr, entry_bound, code); 


1 SETS A HARDWARE ENFORCED LIMIT ON ENTRY POINT OFFSET 
J IF entry_bound IS 0 THE MECHANISM IS DISABLED 


) ENTRY BOUND MAINTAINED IN CONTAINING DIRECTORY AND BUILT INTO 
THE SEGMENT DESCRIPTOR WORD (SDW) WHEN THE SEGMENT IS MADE KNOWN 


) OBJECT SEGMENT ITSELF IS UNCHANGED 
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RINGS 
GATES 


EXAMPLE 
_'print bound_prog.pli 1 


bound prog: proc; 

del hes $set_entry bound entry (char (#*), char (*), 
| fixed bin (14), fixed bin (35)); 

del code fixed bin (35); 


call hes $set_entry bound (*>udd>F15D>doodle", 
"bound prog", 10, code); 
end bound prog; 


r 14:02 0.066 2 


Ybound prog 
r 14:02 0.081 3 


!bound_ prog 


Error: Attempt by cu_ i373 

(>system_library 1>bound command_loop ) 

to access >udd>F15D>doodle>bound_ prog? 16 
which is beyond the entry bound for the gate. 
r 14:02 0.164 23 level. 2 
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VALIDATION LEVEL 


@ POTENTIAL PROBLEM: 
I RING e EXECUTION KEPT IN REGISTER IN THE PROCESSOR 
1 RING OF EXECUTION KEEPS CHANGING 
q ere A SEGMENT IS sve CREATED 


) HOW DO SYSTEM SUBROUTINES ASSIGN PROPER RING BRACKETS? 


@ VALIDATION LEVEL 


) MEANS BY WHICH INNER RING (CALLED) PROCEDURE "KNOWS" THE LEVEL | 
OF PRIVILEGE OF THE OUTER RING (CALLING) PROCEDURE . 


) VALIDATION LEVEL CAN BE CHANGED 
) CANNOT BE SET LOWER THAN RING OF EXECUTION 


J VALIDATION LEVEL CHANGE USED FOR EXAMPLE: 
fil TO CREATE A MAILBOX 


0 BY A SUBSYSTEM WISHING TO CREATE A SEGMENT IN INNER RING 
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RINGS 
VALIDATION LEVEL 


f call cu_$level get (level) 
) RETURNS THE CURRENT VALIDATION LEVEL 


f PRIMARILY USED PRIOR TO A CALL TO cu_$level set TO SAVE THE 
CURRENT VALIDATION LEVEL 


@ cu_$level_ set (AG93) 
2 call cu_$level_ set (level) 
J ALLOWS THE CALLER TO CHANGE THE CURRENT VALIDATION LEVEL 


| NEW LEVEL MUST BE >= CURRENT RING OF EXECUTION 


@ hes $get_user_effmode 


J call hes $get_ user_ effmode (dir_name, entryname, user _id, 
: ring, mode, code); 


J RETURNS THE EFFECTIVE MODE FOR THE SPECIFIED RING 
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RINGS 
CROSS RING 1/0 


® AN ATTEMPT TO DO "CROSS RING I/O" USUALLY RESULTS IN A FATAL PROCESS 
ERROR . 


1 REASON: IOCB'S ARE PER RING 


0 TYPICAL EXAMPLE: CALLING com_err_ IN AN INNER RING 


@ "CROSS RING I/O" IS ALLOWED USING THE FOLLOWING 


J cross_ring . 


7 AN I/O MODULE WHICH ALLOWS AN OUTER RING TO ATTACH A SWITCH 
(BASICALLY AS A SYNONYM) TO A PREEXISTING SWITCH IN AN INNER 
RING, AND TO PERFORM I/0 OPERATIONS BY FORWARDING 1/0 FROM 
THE ATTACHMENT IN THE OUTER RING THROUGH A GATE TO THE INNER 
RING 2 | | 


1 AN INNER RING SWITCH MUST BE ATTACHED WHILE IN THE INNER RING 
BEFORE cross ring CAN BE USED TO ATTACH OUTER RING SWITCH 


) cross ring io $allow_cross 
J call cross ring io $allow cross (switch name, ring, code); 


J CALL MUST BE MADE IN THE INNER RING BEFORE THE OUTER RING 
ATTEMPTS TO ATTACH TO THIS SWITCH WITH cross ring_ 
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RINGS 
CROSS RING I/0 


ipat 
user_i/o tty -login_ channel 
stream_input_ Output 
user input syn_ user_i/o 
user output -syn_ user_i/o 
error output syn_ user_i/o 


ftpr’cross.pli 1 


cross: proc; 
del gate$allow entry; 
del iox_$get_chars entry (ptr, ptr, fixed bin(21), 
fixed bin(21), fixed bin(35)); 
del iox_$attach_name entry (char(*), ptr, char(*), ptr, 
fixed bin(35)); 
del iox_ $open entry (ptr, fixed bin, bit (1) aligned, 
fixed bin (35)); 
del com err’ entry() options(variable); 
del code fixed bin (35); 
del iocb ptr; 
del buffer char (20); 


call gate$allow; 


cali iox_$attach_name ("outer", ioch, "cross ring file 4", 
| null(), code); 


call iox_$open (iocb, 3, "O"b, code); 


end cross; 


!pr gate.alm 1 


include gate macros 

gate info 

gate allow,allow,allow,0 
end 


£2 
' 
womb 

oo 
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RINGS 
CROSS RING I/0 


{pr allow.pl1 1 


allow: proce; 

del cross ring io $allow_ecross entry (char(*), fixed bin, 
. fixed bin(35)); 

del iox $attach name entry (char(*), ptr, char(*), ptr, 

? fixed bin(35)); 

del iox_ $open entry (ptr, fixed bin, bit(1) aligned, fixed bin(35)); 

del code fixed bin(35); 

del com err. entry() options(variable); 

del ioeb ptr; 

del null builtin; 

del cu $level _set entry (fixed bin); 

del cu $level get entry (fixed bin); 

del old_ level fixed bin; 

del get ring entry() returns( fixed bin(3)); 


call cu_$level_get (old_level); 
eall cu_$level_ set (get _ring_ 0); 


call iox _$attach_ name (sfilet, iocb, "vfile_ >udd>MED>nd>gate>file™ 
null), code); 


call cross ring_io $allow_cross ("file", 5, code); 
eall cu_$level_set (old_level); 
end aliow; 


ist [wd] -rb 
54-9 


{st file cross gate allow -rb 
>?udd>MEDSNDidble>gate>file 
ye 4, 4 
‘ ” >udd>MED>NDibble>gate>cross. 


6275. 
" >udd>MED>NDibble>gate>gate 
5 
3 


yn, 4 
Dudd>MEDSNDibble>dgatedallow 
Ho, A, 4 
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RINGS 
CROSS RING I/0 


leross 
tpat ; 
user_i/o _ tty_ -login_channel 
stream _input_ output 
user_input Syn_ user _i/o 
user output syn_ user_i/o. 
error _output syn_ user_ i/o 
outer cross ring _ file 4 stream_input_output 


tio put_ chars outer "line 1" 
fio put_ chars outer "line 2" 
fio position outer -1 
fio get line outer 
io_call:7 characters returned.line 1 


!pr file 
nee ‘Incorrect access on entry. >udd>MED>NDibble>gate> file 


@ TWO MAJOR POINTS TO REMEMBER 
f WORKING DIRECTORIES ARE PER RING 


f MUST SET. VALIDATION LEVEL INNER RING BEFORE CREATING INNER 
‘TOCB* 
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INTRODUCTION 


@ THE SUBSYSTEM DESIGNER HAS THE CAPABILITY OF MODIFYING SEVERAL 
DIFFERENT ASPECTS OF THE COMMAND ENVIRONMENT 


@ THE cu_ (COMMAND UTILITY) SUBROUTINE ({1,5,5} PROCEDURE WRITTEN IN 
alm) IS THE TOOL USED BY SUBSYSTEM DESIGNERS TO ACCOMPLISH THE 
FOLLOWING BASIC TASKS: 


) WRITING COMMAND OR ACTIVE FUNCTION PROCEDURES 


cu garg, count 

cu | $arg_ ptr 

eu | $af_ arg count 
ecu $af return | arg 
‘cu_$af_arg_ ptr 


) MODIFYING THE STANDARD COMMAND ENVIRONMENT 


WRITING A COMMAND PROCESSOR 


cu_$generate call 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


ES OEE eee aS 


@ THE STANDARD COMMAND ENVIRONMENT IS PROVIDED TO ALLOW THE USER TO 
PROCESS HIS COMMAND REQUESTS, EXECUTE HIS PROGRAMS, AND SO ON 


@® THE BASIC COMMAND ENVIRONMENT HAS THE FOLLOWING CHARACTERISTICS: 


f ‘listen * IS INVOKED AT PROCESS START UP TIME AND IS ALWAYS. 
RETURNED TO FOLLOWING THE EXECUTION OF A COMMAND (OR FOLLOWING A 
PROGRAM BEORSY 


) THIS peers. ACCEPTS INPUT FROM THE USER'S TERMINAL AND 
PASSES SUCH INPUT TO THE "CURRENT il PROCESSOR" FOR FURTHER 
PROCESSING 


1 EVERY TIME CONTROL RETURNS BACK TO THE "LISTENER", THE "listen_' 
‘PROGRAM INVOKES THE “CURRENT READY PROCEDURE" 


§ THE "CURRENT COMMAND PROCESSOR" PROCESSES THE INPUT LINE TYPED 
BY THE UeEe. AND PASSED TO iT BY THE LISTENER 


Ld 
1 
4 
te] 
fA 
oJ 


f THE STANDARD COMMAND PROCESSOR (command processor F- DOE 
SUCH THINGS AS EXPANDING OUT ANY ITERATION LOOPS CPARENTHESES 
AND EVALUATING ACTIVE FUNCTIONS (BRACKETS) © 


2 THE STANDARD COMMAND PROCESSOR THEN DEVELOPS A CALL TO THE 
APPROPRIATE COMMAND OR USER PROGRAM 


f WHENEVER A QUIT OR OTHER "UNCLAIMED" SIGNAL (CONDITION NOT HANDLED 
BY USER) ARISES A "NEW LEVEL" OF THE LISTENER IS INVOKED BY 
"REENTERING COMMAND LEVEL" 


f WHEN THE DEFAULT HANDLER DECIDES TO REENTER COMMAND LEVEL, 
(THE "CURRENT COMMAND LEVEL INTERMEDIARY" WILL BE INVOKED 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


RS EES ote EE 


@ STANDARD COMMAND ENVIRONMENT CONCEPTS 


§ CURRENT READY PROCEDURE 


eo 


IS INVOKED WHEN LISTENER (OR ANY OTHER PROCEDURE) CALLS 
cu_$ready proc 


IS, BY DEFAULT, print_ ready message _, WHICH MERELY PRINTS THE 
READY MESSAGE 


MAY BE SET BY A CALL TO cu_$set_ready procedure 


MAY BE DETERMINED BY-~A CALL TO cu_$get ready procedure 


f CURRENT COMMAND PROCESSOR 


IS INVOKED WHEN LISTENER (OR ANY OTHER PROCEDURE) CALLS cu_$cp 
IS, BY DEFAULT, command_processor_ 


MAY BE SET BY A CALL TO cu_$set_command_ processor (NOTE THE 
‘abbrev' COMMAND) 


MAY BE DETERMINED BY A CALL TO cu_$get_command_processor 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


§ CURRENT COMMAND LEVEL INTERMEDIARY 


f .IS INVOKED WHEN DEFAULT ERROR HANDLER (OR ANY OTHER PROCEDURE) 
CALLS cu_$cl 


1 Is, BY DEFAULT FOR INTERACTIVE PROCESSES, 
- get_to_cl $unclaimed signal WHICH REENTERS COMMAND LEVEL VIA 
A CALL TO listen | $release_ stack 


J MAY BE SET BY A CALL TO eA setaeiterandiacs 


J MAY BE DETERMINED BY A CALL TO cu_$get_cl_intermediary 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


This Page Intentionally Left Blank 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 
CURRENT READY PROCEDURE 


WHERE THE CURRENT | 
READY PROCEDURE FITS IN 


| print_ready_message_ PRINTS READY MESSAGE 


APF cu_Sget_ready_mode RETURNS “1” b 


“LISTENS” FOR NEXT LINE 


@ 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


ee ee ee oe 


IPULATING THE READY PROCEDURE 


] cu_$ready proce (AG93) 


CALLS THE CURRENT READY PROCEDURE 


1 cu_$set_ready procedure (AG93) 


ESTABLISHES THE SPECIFIED PROCEDURE AS THE CURRENT READY 
PROCEDURE 


) cu_$get_ready procedure (AG93) 


RETURNS A NULL ENTRY VALUE IF THE CURRENT READY PROCEDURE Is 
THE DEFAULT (print ready message_) 


OTHERWISE, RETURNS THE PL/1 ENTRY VALUE OF THE CURRENT READY 
PROCEDURE 


J] cu_$set_ready mode (AG93) 


SETS OR RESETS THE "STATIC READY MODE" SWITCH 


‘HE CURRENT READY PROCEDURE CAN (BUT NEEDN'T) CHECK THIS SWITCH 


TO SEE WHETHER TO PRINT OR NOT (NOTE THE ‘ready _on', AND 
‘ready off! COMMANDS) oa 7 


1 cu_$get_ready mode (AG93) 


q 
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RETURNS THE VALUE OF THE "STATIC READY MODE" SWITCH 
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CURRENT COMMAND PROCESSOR 


_ USER TYPES “pwd” 


| listen_Slisten_ 
CALL PASSING A LINE PTR, LINE LENGTH , & CODE 
CALL | PASSING ALINE FTA, LINE LENGTH, & CODE 
_abbrev_Sebbrev —THE “CURRENT coMmMAND PROCESSOR” 
CALL | PASSING ALINEPTR, LINE LENGTH, & CODE 
| pwdSped | PRINTS WORKING DIRECTORY 
a a ao ae a 


command _processor_Scommand_processor_ 


WHERE THE CURRENT 
_ COMMAND 
PROCESSOR FITS IN 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


ee Ee Ee cient 


CURRENT COMMAND PROCESSOR 


@ MANIPULATING THE CURRENT COMMAND PROCESSOR 


1 cu_$ep (AG93) 


f§ INVOKES THE CURRENT COMMAND PROCESSOR, PASSING TO IT AN INPUT 
LINE POINTER, LINE LENGTH AND CODE 


f BESIDES THE LISTENER, USED ALSO BY SUBSYSTEMS HONORING AN "e" 
. OR ™..% REQUEST 


| cu_$set_command_processor (AG93) 


f ESTABLISHES THE SPECIFIED PROCEDURE AS THE CURRENT COMMAND 
-PROCESSOR (BY SPECIFYING AN ENTRY VALUE) 


) cu_$get_command_processor (AG93) 


0 RETURNS A NULL ENTRY VALUE IF THE CURRENT COMMAND PROCESSOR 
IS THE DEFAULT (command processor _$command_processor_). 


f OTHERWISE RETURNS THE ENTRY VALUE OF THE CURRENT COMMAND 
PROCESSOR : 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


Et ee EE ees 


COMMAND LEVEL INTERMEDIARY 


pa ee aca WHERE THE COMMAND 
| LEVEL INTERMEDIARY 


_FITS IN 


1QUIT! 


PRINT READY MESSAGE WITH “level 2” CLAUSE 
IFF cu_$get_ready_mode RETURNS “1b 


listen_ release stack “LISTENS” FOR FIRST COMMAND IN THIS LEVEL 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 
COMMAND LEVEL INTERMEDIARY 


) cu_$cl (AG93) 
fl. INVOKES THE CURRENT COMMAND LEVEL INTERMEDIARY 


) CALLED BY THE STANDARD ERROR HANDLERS 


1 cu_$set_cl_intermediary (AG93) 


) ESTABLISHES THE SPECIFIED PROCEDURE AS THE CURRENT COMMAND 
LEVEL INTERMEDIARY 


) NOTE THAT-AN “INTERMEDIARY IS USED IN ABSENTEE PROCESSES TO 
FORCE PROCESS TERMINATION "WHEN AN ATTEMPT IS MADE TO REENTER 
COMMAND LEVEL" 


0 cu_$get_cl_intermediary (AG93) 


0 RETURNS A NULL ENTRY VALUE IF THE CURRENT COMMAND LEVEL 
INTERMEDIARY IS THE DEFAULT (get_to_cl_$unclaimed_signal) 


) OTHERWISE RETURNS THE ENTRY VALUE OF THE CURRENT COMMAND LEVEL 
INTERMEDIARY 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


——se Ce eee 


SOME MISCELLANEOUS CU ENTRY POINTS 


@ cu $decode entry value (AG93) 


all cu_$decode_entry_value (entry_value, ep ptr, env_ptr); 


EXTRACTS THE POINTER COMPONENTS OF A PL/I ENTRY VALUE 


‘USEFUL FOR DETERMINING IF AN ENTRY VALUE IS NULL 


NOTE: RECENTLY REPLACED BY codeptr AND environmentptr BUILTINS © 


e cu_$arg_list_ptr (4G93). 


ay 


RETURNS AD POINTER TO THE ARGUMENT LIST STRUCTURE PASSED TO THE 


CALLER 


GENERALLY USED BY SUBROUTINES WHICH ARE CALLED WITH A VARYING 
NUMBER OF ARGUMENTS OF VARYING DATA TYPES (ioa_ FOR INSTANCE), 
TO ALLOW EXAMINATION OF THE ARGUMENT LIST DIRECTLY 


SEE ALSO decode descriptor. IN AK92 


Not To Be Reproduced 5212, F15D 


MODIFYING THE STANDARD COMMAND ENVIRONMENT 


SOME MISCELLANEOUS CU ENTRY POINTS 


EEE SE EE 


@® cu $arg ptr_rel (AG93) 7 
] REMINISCENT OF cu_$arg_ptr 


; 1 ALLOWS A PROCEDURE TO REFERENCE THE nth ARGUMENT PASSED TO ANOTHER 
PROCEDURE, GIVEN A POINTER TO THAT OTHER PROCEDURE'S ARGUMENT 
~LIst 


J QUESTION: HOW WOULD A PROCEDURE OBTAIN THE arglist ptr OF ANOTHER 
PROCEDURE? : 


) IT COULD BE PASSED SUCH A POINTER 


) IT COULD LOOK IN STACK FRAME OF OTHER PROCEDURE 


Not To Be Reproduced 5-13 


oi 
rand 
wn 
=) 


MODIFYING THE STANDARD COMMAND ENVIRONMENT 


EE Ee en eer 


@ GENERATING A CALL GIVEN AN ENTRY VALUE 


J cu_$generate_call (AG93) 


l GENERATES A STANDARD CALL TO THE SPECIFIED PROCEDURE (DESIGNATE) 
BY AN ENTRY VALUE) WITH A SPECIFIED ARGUMENT LIST 


) DESIGNED PRIMARILY TO BE USED BY COMMAND PROCESSORS THAT CALL 
A COMMAND WITH AN ARGUMENT LIST BUILT FROM A COMMAND LINE 
INPUT FROM A TERMINAL . 


J IS PREFACED BY A CALL TO hes $make_entry, WHICH ACCEPTS PATHNAMES 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 
AN EXAMPLE 


iprint change cl.pli 1 


change __ el: proc; 


del codeptr builtin, 
cu_$get_cl _intermediary entry (entry), 
cu_$set_ cl intermediary eutry (entry), 
ecu_$get command_processor entry (entry), 
ioa_ entry options (variable); 


del var entry entry variable, 
my intermediary entry; 


/* FIND OUT THE CURRENT COMMAND PROCESSOR #*/ 
call cu_$get_ command processor (var entry); 
eall ioa_ ("Current command processor is Apt codeptr (var_entry)); 


/* FIND OUT THE CURRENT INTERMEDIARY #/ 
- call cu_$get_cl_ intermediary (var entry); 
eall ioa_ ("Current intermediary Is “p", codeptr (var_entry)); 


/* NOW SET MY OWN INTERMEDIARY ‘*/ 
~e@all cu_$set_cl_intermediary (my_intermediary); 


end change cl; 


MODIFYING THE STANDARD COMMAND ENVIRONMENT 
AN EXAMPLE 


r 19:26 0.132 0 
{print my_intermediary.pl1 1 


my_ intermediary: proc; 


del get_to_cl_$unclaimed_signal entry; 


del ioa_ entry options (variable); 


call ioa ("TYPE ‘start' TO RESTART PROCESS 
TYPE ‘release’ OR Trl’ TO DISCARD STACK HISTORY"); 
call get _ to _cl_$unclaimed_ signal; 


end my_ intermediary; 


r 19:26 0.069 0 


!change cl 


Current command processor is 30512676 


Current intermediary is TTTTTs 
r 193 27 0. 089 0 


flrn 305 


305 >sss>bound_ full_ecp_ 
do 
response 
ab 
exec com 
r 19:27 0.105 0 


{den >sss>bound full _¢p_ 2676 
2676 abbrev{ 334 


r 19:28 0.096 2 
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2 SEES eed 


AN EXAMPLE 


!(QUIT) 

QUIT 

TYPE ‘start' TO RESTART PROCESS 

TYPE ‘release* OR ‘rl! TO DISCARD STACK HISTORY 
r 19:29 0.168 4 level 2 


tprobe 


‘Condition quit ace at block!154 (level 6). 
stack 
13 simple_ command | processor} 12211 
12 - @ommand. _processor_ 611014 
11 abbrev 17507 
10 ; - pelease stack!7755 
—- unelaimed | signal; 27010 
my intermediary (line 8) 
— wall}2602 
block; 154 
tty _get_linei5763 
audit. , get line{5073 
listen {7666 
project start up_ 141673 
user_init_admin_ 742376 — 


a bes | 
= 1 W d= U1 OOO 


! 
r 19:29 0. 980 81 level 2 


trelease 
r 19:29 0. O44 0 


!change_ cl 

Current command processor is 305} 2676 
Current intermediary is 456/26 

r 19:29 0.046 0 


tirn 456 
456 >udd>MED>NDLDbLe>my_ intermediary 


my_ Sa tt a 
r 19:30 0.047 0 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 


AN EXAMPLE 


I-» YoU ARE NOW READY FOR WORKSHOP 
ae 
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REVIEW 


@ 1/0 SYSTEM BASIC CHARACTERISTICS: . 


J LOGICAL INPUT/OUTPUT REQUESTS ARE USED RATHER THAN DEVICE-SPECIFIC 
PHYSICAL REQUESTS 


fj DEVICE INDEPENDENCE IS ACHIEVED VIA THE Multics I/O SWITCH MECHANISM 


f ALL I/O REQUESTS ARE DIRECTED TO A "SWITCH", WHICH IS "ATTACHED® 
BY A DEVICE=DEPENDENT PROGRAM, CALLED AN I/O MODULE, TO A PARTICULAR 
DEVICE OR FILE 


] THE SUPPORTING DATA STRUCTURE OF A SWITCH IS AN I/0 CONTROL 
BLOCK (IOCB) 


@ ALL I/O OPERATIONS CAN BE PERFORMED AT THREE BASIC LEVELS: 
LANGUAGE LEVEL = ‘open', ‘close', ‘get', 'read', 'put', ‘write’ 
f COMMAND LEVEL = THE ‘io call’ COMMAND 


J SUBROUTINE LEVEL - THE ‘iox_* SUBROUTINE 
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CONTROL ORDERS 


@ CONTROL OPERATIONS ARE ONE EXAMPLE OF EXTENDED POWER OF iox_ OVER 
LANGUAGE 1/0 
@ SOME I/O MODULES SUPPORT ‘control’ OPERATIONS AND SOME DO NOT 


@ THEY ARE INVOKED BY A CALL TO iox_$control 


@® COMPLETE DESCRIPTIONS OF THE I/O MODULES, AND THE CONTROL ORDERS 
THEY SUPPORT CAN BE FOUND IN EITHER THE "MPM = Subroutines", ORDER 
NUMBER AG93, THE "MPM = Peripheral Input/Output", ORDER NUMBER AX49, 
OR THE "Communications Input/Ouput"™ MANUAL, ORDER NUMBER CC92. 


@ THE SUBSYSTEM DESIGNER MAY WANT TO MAKE USE OF SOME OF THE ‘controi' 
OPERATIONS SUPPORTED BY THE tty AND vfile_ I/O MODULES 
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CONTROL ORDERS - 
USEFUL TTY CONTROL ORDERS 


& tty SUPPORTS THE FOLLOWING CONTROL ORDERS (DOCUMENTED IN CC92) 


J abort 
resetread 
resetwrite 


) THESE FLUSH BOTH THE INPUT AND OUTPUT INTERMEDIATE BUFFERS 
(abort), THE INPUT BUFFER (resetread) OR THE OUTPUT BUFFER 
Rpeccter tte: FOR AN OPENED SWITCH 


J) hangup 


f DISCONNECTS THE TELEPHONE LINE CONNECTION OF THE TERMINAL, IF 
POSSIBLE 


J listen 


1 SENDS A WAKEUP TO THE PROCESS ONCE THE LINE ASSOCIATED WITH 


THIS DEVICE IDENTIFIER IS DIALED UP (SEE THE-DISCUSSION OF 
‘DIALING TERMINALS TO A PROCESS!) 


tas ate ow aes rd 


J terminal_info 


™ 


RETURNS INFORMATION ABOUT THE DEVICE TO WHICH THE MODULE IS 
ATTACHED IN A USER=-SUPPLIED STRUCTURE 


0 ANSWERBACK=DERIVED TERMINAL ID 
) TERMINAL TYPE 

) LINE TYPE 

J) -BAUD RATE 
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CONTROL ORDERS 
USEFUL TTY CONTROL ORDERS 


quit_enabie 
quit disable 


CAUSE ‘quit’ SIGNAL PROCESSING TO BE ENABLED OR DISABLED FOR 


-. THIS DEVICE (FOR EXAMPLE, THE STANDARD PROCESS CREATION CYCLE 
PROGRAMS ENABLE QUITS ONLY ONCE CONTROL HAS PASSED OUT TO THE 


USER RING, TO PREVENT A ‘quit’ FROM ALLOWING A PROCESS TO 
GAIN CONTROL IN AN INNER RING) 


NOTE: EVEN IF TERMINAL QUITS ARE DISABLED, IT IS POSSIBLE TO 
SIGNAL 'quit' IN A USER PROGRAM, OR VIA THE ‘signal' COMMAND 


a Lt. —* 
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CONTROL ORDERS 
USEFUL TTY CONTROL ORDERS 


start 


f CAUSES A WAKEUP TO BE SIGNALLED ON THE EVENT CHANNEL ASSOCIATED 
_ WITH THIS DEVICE~j THE REQUEST IS USED TO RESTART PROCESSING 
- ON A DEVICE WHOSE WAKEUP MAY HAVE BEEN LOST OR DISCARDED 
- (PERHAPS BECAUSE OF BEING INTERRUPTED BY AN ipe OR 
- timer_manager_ CALLED ROUTINE) : 


* 


| printer off 
printer_on 


) . CAUSE THE PRINTER MECHANISM OF THE TERMINAL TO BE TEMPORARILY 
DISABLED OR REENABLED (IF IT IS PHYSICALLY POSSIBLE FOR THE 
- TERMINAL TO DO SO) = THIS MAY BE USEFUL FOR SUCH THINGS AS 
ACCEPTING PASSWORDS . = | 


set delay 
get delay 


q SET, OR RETURN, THE NUMBERS OF DELAY CHARACTERS ASSOCIATED 
WITH THE OUTPUT OF CARRIAGE MOTION CHARACTERS 


1] DEFAULT VALUES CAN BE USED, OR DELAY CHARACTERS CAN BE SPECIFIED 
FOR VERTICAL AND HORIZONTAL NEW-LINE OUTPUTS, FORMFEEDS, AND 
THE. LIKE : 


set eat tig chars 
get_ editing _ chars 


| - CHANGE, OR FIND ouT, WHAT CHARACTERS ARE BEING USED FOR EDITING 
INPUT 


_ 9 THE ERASE AND KILL CHARACTERS CAN BE SET TO ANY CHARACTERS 
- DESIRED SUBJECT TO SOME RESTRICTIONS (E.G., NO CARRIAGE-MOVEMENT 
CHARACTERS, NOT 'NUL* OR SPACE, AND SO ON) 
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CONTROL ORDERS 
USEFUL TTY CONTROL ORDERS 


adel mm 


1 set input translation 
get_ input_ translation 


0 SETS, OR READS, A TABLE WHICH = USED FOR TRANSLATION OF 
TERMINAL INPUT TO ASCIT 


1 set output translation 
get_ output_ translation 


? SETS, OR READS, A TABLE WHICH IS USED FOR TRANSLATING ASCII 
CHARACTERS TO THE CODE TO BE SENT TO THE TERMINAL 


0 set_input_conversion 
get_ input_ conversion 


| WRITE OR READ A TABLE WHICH IS USED IN CONVERTING INPUT TO 
IDENTIFY ESCAPE SEQUENCES AND CERTAIN SPECIAL CHARACTERS 


1 set_output_ conversion 
get_ output_ conversion 


) WRITE OR READ A TABLE USED IN FORMATTING OUTPUT TO IDENTIFY 
CERTAIN KINDS OF SPECIAL CHARACTERS (SUCH AS NEWLINE, CARRIAGE 
RETURN, BACKSPACE,/AND'SO ON) 


1 set special 
get special 


] WRITE OR READ A TABLE THAT SPECIFIES 1-3 CHARACTER SEQUENCES 
TO BE SUBSTITUTED FOR CERTAIN OUTPUT CHARACTERS, AND CHARACTERS 
WHICH ARE TO BE INTERPRETED AS PARTS OF ESCAPE SEQUENCES ON 
INPUT ’ 
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. CONTROL ORDERS 
USEFUL VFILE CONTROL ORDERS 


® vfile_ SUPPORTS THE FOLLOWING CONTROL ORDERS 


| read position 


- ) RETURNS THE ORDINAL POSITION OF THE NEXT RECORD (OR BYTE) AND 
THAT OF THE END OF THE FILE (RELATIVE TO THE FILE BASE) 


1 seek_head 
] USED FOR FILES OPENED FOR KEYED-SEQUENTIAL-INPUT OR 
| pre ace ierenia | - ' 


q LOCATES THE FIRST RECORD WITH A KEY WHOSE HEAD HAS THE SPECIFIED 
-RELATION G, a ee rts A Saver wERRCHSEET: 


ae USEFUL FOR APPLICATIONS WHICH MUST LOCATE THE FIRST RECORD 
THAT, FOR INSTANCE, BEGINS WITH "B*" : 


h APPLICATION: MDBM USES THIS WHEN LOCATING TUPLES GIVEN ONLY 


LEADING PORTI On OF REY 


1 file status 


1. RETURNS VARIOUS ITEMS OF INFORMATION ABOUT THE FILE | 


1 SEE vfs COMMAND AND vfile status SUBROUTINE 
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CONTROL ORDERS 
USEFUL VFILE CONTROL ORDERS 


get Key 
add_key 
delete key 
reassign key 


0 MANIPULATE THE KEYS IN AN INDEXED FILE DIRECTLY (THUS ALLOWING 
SEVERAL KEYS TO BE ASSOCIATED WITH A GIVEN DATA RECORD, 
REASSIGNING THE DATA DESCRIPTOR OF A KEY TO ANOTHER DATA 
DESCRIPTOR, AND SO ON) 


REVIEW OF IOCB'S 


@ RECALL: 


[ +=) 


AN tIOCB' IS A STANDARD DATA STRUCTURE 


IT IS THE PHYSICAL REALIZATION OF A SWITCH 


THEY ARE FOUND IN THE USER'S PROCESS DIRECTORY 


AN *IOCB' IS CREATED BY iox_ WHEN A SWITCHNAME IS USED IN AN 
“ATTACH STATEMENT" OR "ATTACH COMMAND" FOR THE FIRST TIME IN A 
PROCESS 


ONCE AN ‘'IOCB' IS CREATED, IT LIVES THROUGHOUT THE PROCESS (UNLESS 
EXPLICITLY DELETED) 


THE PRINCIPAL COMPONENTS OF AN ‘IOCB' ARE ‘pointer' VARIABLES 
AND ‘entry' VARIABLES . m. ng 


THERE IS ONE ‘entry' VARIABLE FOR EACH I/0 OPERATION, WITH THE 


EXCEPTION oe THE ATTACH OPERATION 


~“— 


TO PERFORM AN I/O OPERATION THRU THE SWITCH, THE APPROPRIATE 
ENTRY VALUE IN THE CORRESPONDING 'IOCB* IS CALLED 
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REVIEW OF IOCB'S 


WHEN iox_ $attach_name IS CALLED IT: 
f INITIALIZES SOME OF THE ELEMENTS IN THE ‘IOCB* STRUCTURE 


f CALLS <module_name>$<module_name>attach 


0 THIS ENTRY POINT IN THE 1/0 MODULE FINISHES THE INITIALIZATION 
OF THE ‘'IOCB' 


IT IS THE RESPONSIBILITY OF THE I/O MODULE TO MAINTAIN THE ACCURACY 
OF THE *IOCB! 


ONLY THE Lox_ ENTRY POINTS RESULTING IN ATTACHMENT OF A SWITCH 
REQUIRE THE MODULE AS AN INPUT ARGUMENT | 


| AFTER THAT TIME, THE ‘IOCB' "POINTS TO" THE APPROPRIATE ENTRY 
POINTS IN THE APPROPRIATE MODULE (THE USER NEED ONLY PROVIDE A 
POINTER TO THE 'I0cB') 
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REVIEW OF IOCB'S 


iocb aligned based, /*® I/0 control block. */ 
version fixed init(1), /® Version number of structure. #/ 
name char (32), /# I/O name of this block. */ 
actual_iocb ptr ptr, /* IOCB ultimately SYNed to. #/ 
attach | | descrip. ptr ptr,/* Ptr to printable attach descrip. */ 
attach data | ptr otr; 7*® Ptr to attach data structure. */ 
open_descrip ptr ptr, /* Ptr to printable open description. */ 
open data . ptr ptr, /*® Ptr to open data structure. */ — 
reserved bit (72), | /* Reserved for future use. */ 
detach_iocb entry (ptr, fixed ae 
/* detach_iocb (p,s) * 
open entry (ptr, fixed, bit ce eaade fixed (35)), 
/* open(p,mode,not used,s) */ 
close entry (ptr, fixed (35)7, /*® close(p,s) #/ 
get_line entry (ptr, ptr, fixed (21), fixed (21), fixed (35)), 
/*® get line(p,bufptr,buflen,actlen,s */ 
get_chars entry (ptr, ptr, fixed (21), fixed ae fixed (35)), 
/* get chars(p,bufptr,buflen,actlen,s) * 
put_ chars entry (ptr, ptr, fixed (21), fixed (350), 
/* put_chars(p,bufptr,buflen,s) */ 


‘modes entry (ptr, char (*), char (*), fixed (35)), 


/*® modes(p,newmode,oldmode,s) */- 
position entry (ptr, fixed, fixed (21), fixed (35)), 
/* position(p,u1,u2,s) */ 
control entry (ptr, char (#), ptr, fixed (35)), 
/* control(p,order,infptr,s) */ 
read_ record entry (ptr, ptr, fixed (21), fixed (21), (fixed (35)), 
/* read_record(p,bufptr,buflen,actlen,s) * 
write record entry (ptr, ptr, fixed (21), fixed (35)), 
/* write _record(p,bufptr,buflen,s) #*/ 
rewrite record entry (ptr, ptr, fixed (213, fixed (35));, 
/* rewrite record(p,bufptr,buflen,s) #/ 
delete record entry (ptr, fixed (35)), 
/* delete record(p,s) */ 
seek key entry (ptr, char (256) varying, fixed (21), f fixed (35)), 
/* seek key(p,key,len,s) */ 
read _key entry (ptr, char (256) "varying, fixed (21), fixed (35)), 
| /* read key(p,key,len,s) ¥*/ 
read length | entry (ptr, fixed (21), fixed S227 
/* read_length(p,len,s) */; 
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REVIEW OF IOCB'S 


/* "HIDDEN" PORTION */ 
2 ios compatibility ptr, /* Ptr to old DIM's IOS transfer vector. */ — 
2 syn_inhibits bit(36), /* Operations inhibited by SYN. */ 
2 syn father ptr, /* IOCB immediately SYNed.to.: */ 
2 syn_brother ptr, — /# Next IOCB SY¥Ned as this one is. */ 
2 


syn_son ptr; /* First IOCB SYNed to this one. */ 
OTHER STRUCTURES OF INTEREST 


attach | description based iene: 
length fixed bin(17), 
string char (0 refer (attach Lome sere Des Ons length) )3; 


del 


NNM— 


del open_description based aligned, 
length fixed bin(17), 


string char (0 refer (open_description. length) Me . 


NM — 


@ iocb.attach descrip ptr 
) BY DEFINITION, IF THIS IS NULL, IOCB IS DETACHED 


] THE ATTACH DESCRIPTION OF AN IOCB SYNED TO ANOTHER IS A. DESCRIPTION 
OF THE STROR TERE erst NOT A COPY OF THE OTHER IOCBtS ATTACH... 
DESCRIPTION 
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REVIEW OF IOCB'S 


@ iocb.attach_ data ptr 


1 IS OPTIONALLY USED BY THE I/O MODULE TO LOCATE AN INFORMATION 
STRUCTURE WHOSE FORMAT AND CONTENT IS MODULE=]DEPENDENT 


I/O MODULES AREN'T ALLOWED TO STORE SUPPLEMENTARY ATTACH DATA 
_ ANYWHERE ELSE | 


-@ = iocb.open_descrip_ptr — 


i BY DEFINITION, IF NULL, THE IOCB IS CLOSED 


® iocb.open_data ptr 


1 ANALOGOUS TO attach_data_ptr 


@ iocb.ios compatibility 


J. POINTS TO A MODULE THAT SIMULATES ALL FUNCTIONS OF THE OBSOLETE 
I/O SWITCHING MECHANISM, ios_ | 
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SYNONYMING 


@ SYNONYMING IS ACCOMPLISHED THRU THE USE OF THE syn_ I/O MODULE 
WHICH: 


f ATTACHES AN 1/0 SWITCH, x, AS A SYNONYM FOR ANOTHER SWITCH, y 


THEREAFTER, PERFORMING AN OPERATION ON x (EXCEPT FOR DETACH) HAS 
THE SAME AFFECT AS PERFORMING IT ON y 


@ THE ONLY WAY TO MAKE SYNONYMING BEHAVE DIFFERENTLY THAN DESCRIBED 
ABOVE IS TO USE THE -inhibit CONTROL ARGUMENT IN THE ATTACH DESCRIPTION 


1 iocb.syn_inhibits 


9 FIRST 15 BITS MAP TO iocb.open THRU iocb.read escvern edebach 
CAN NOT BE INHIBITED) 


) WHEN A BIT IS ON, error_table $no_operation IS RETURNED - 
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tio attach y vfile_ my file 
tio open y stream input 

fio attach x syn_ y 

tio print_ ioeb yore 

IOCB "y" @ 257127320 | 


SYN son is "x" @ 257127160 
attach eesertpyson: “yvfile_ 


SYNONYMING 


>udd>MEDmul t>F 15D>new>my file”, 
attach data at 257!/3452u 


open description: "stream input", open data at 257{27462 


detach _ioeb >s11>bound_ 
- open 
close Se £5" Saceacnd. 
get_line >sss>bound 
get_ chars >sss>bound_ 
put_ chars — >s11>bound_ 
modes O ser ff 
position $ ade> ound: 
control - .->sss>bound_ 
read_record >sl1>dound_ 
write record - 


rewrite_ record 
delete record . 
seek_ key cae 
read _ _key © * 
ba 


read_length 


iden >sl1>bound_ command |_ Loop _ 


2360 a iox_ 714 
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command |__ loop $err_not_closed (2711/2370) 


vfile _$close_ file (370155265) 
_vfile_$get_line uns file (3701722) 

vfile $get_ chars uns file (370/542) 
command loop $err_no operation (271} Goon) 


vfile _ $position_ uns file (3701142) 
vfile $control_uns file (370/265) 
command | loop. $err_ no ) operation (27112360) 


2360 
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_ SYNONYMING 


tio print toob x 

IOCB "x" @ 257127160 actual IOCB is "y" @ 257127320) 
SYN father is *"y* @ 257{27320 

attach description: "syn_ y", attach data at 257134666 
open description: "stream | input", open data at 257{27462 


detach _ioeb >s11>bound_command_loop $syn_detach (271173205) 
- open - . _3?811>bound_ command Loop | $err_ not closed (271{2370) 
- elose - .. ->sss>bound_vfile $close file (370155265) 
-- get_line -° >sss>bound_vfile $get_line uns file (3701722) 
~ get chars = —- >sss>bound_vfile_  $get_ chars _ uns file (3701542) 
 put_chars 7 >s11>bound_ command | loop $err_no operation (27112360) 
- modes feat ate 
. position . ee aesybound vfile _ $position_uns file (37011142) 
-. eontrol _.  }88s>bound_ vfile_ | $control_ uns_ file (3701265) 
read record | _>811>bound_ command | loop_ gerr_ no poner seso8 (27112360) 
write record | 
rewrite_ record =. 
delete_ record n 
seek , key bia 
read __key ire 
read length As 
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SYNONYMING 


fio attach inhibited syn_ y -inhibit close 


Zico print ioeb inhibited 

IOCB "inhibited" @ 257127020 (actual IOCB is "y" @ 257127320) 

SYN father is "y" @ 257127320 

SYN brother is "x" @ 257{27160 

attach description: "syn _ y -inh close", attach data at 257135402 
open description: "stream input", open data at 2571i27462°—C. 


detach iocb >sl1>bound command |_ loop $syn_detach (271173205) 

open ~. >sl1>bound_command_loop $err_not_ closed (2711 2370) 
close >s11>bound_ command _ loop | $err_ no operation (2711 2369) (inh) 
get_line >sss>bound vfile  $get_ line_uns file (3701722) 

get chars >sss>bound vfile $get chars uns file (370{542) 
put_chars >811>bound_ command loop $err_no operation (271{2360) 
modes 

position Ssaevueut vfile $position_uns file (37011142) 
control >sss>bound vfile $control_uns file (370/265) 

read record >sl1>bound_ command |_loop_ $err_ no operation (27132360) 
write record om 


rewrite_ record " 
delete record ss 
seek _key * 
read _ _key " 
read_ _length | " 


tpat y x inhibited 


y  vfile_ >udd>MEDmult>F15D>new>my file 
stream input iat 

x | Ssyn_y .- 

inhibited syn_ y -inh close 


!io close inhibited 
io_call: Invalid I/O operation. inhibited 


ipat y 
 ¥ | vfile_ >udd>MEDmult>F15D>new>my file 
stream_input 


§io close x 


tpat y x inhibit ed Doe 

y vfile >udd>MEDmult>F15D>new>my file 
(not open) ~ ~ 

x : syn_ 

inhibited syn_ “ -inh close 
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SYNONYMING 


THE HIDDEN 
PORTION SUPPORTS 


SYNONYMING 


io attach x syn_ user_ output | @rror output [._.... 
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IOX ENTRY POINTS USED IN I/O MODULES 


SS eS ee 


@ THE FOLLOWING iox_ ENTRY POINTS ARE GENERALLY OF USE TO USERS WRITING 
I/O MODULES: 


dt iox_$propagate 


fl REFLECTS MODIFICATIONS MADE TO AN ULTIMATE IOCB BACK TO ALL. 
MEMBERS OF THE "SYNONYM FAMILY" 7 | 


1 MUST. BE CALLED AT CERTAIN POINTS IN THE I/0 MODULE AND NoT 
a idee ANY ones nhac eactas ie : ose o 


ae ie PROPAGATE INHIBIT BITS BACKWARD TO THE SONS 


) iox_$find_iocb n- 


J USED TO FIND (ONE AT A TIME) ALL EXISTING IOCBS IN THE CALLING 
_.. RING, WHETHER ATTACHED OR DETACHED 


l SEE print_attach_table COMMAND 
2 iox_$look_ioeb 


]) RETURNS A POINTER TO THE IOCB FOR THE NAMED SWITCH IF IT- 
EXISTS eee aa 
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IOX ENTRY POINTS USED IN I/O MODULES 


at SE = eSSeemes 0 cetiee 0 CEES 


iox_$err_no operation 
iox $err_not_open 

iox ~$err_ not closed 
iox $err_not attached 


) THESE ENTRY VALUES ARE ASSIGNED TO ENTRY VARIABLES IN THE 
IOCB IN ORDER TO RETURN AN ERROR CODE WHEN THAT ENTRY VARIABLE 
IS CALLED 


J THESE ENTRY POINTS SET THE VALUE OF THE ‘code' ARGUMENT TO 
ONE OF THE FOLLOWING: ) 
error_table_$no_ operation 
error_table $not_open 
error_table $not_closed 


error_table $not_ attached 


Be Reproduced 6-20 FISD 


(End Of Topic) 


TOPIC VII 
Writing I/O Modules 
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INTRODUCTION 


RECOMMENDED READING: THE Multics USER RING I/O SYSTEM PLM (Order No. 
AN57) AND CHAPTER 4 IN THE SUBSYSTEM WRITERS! GUIDE. 


SOME INSTANCES IN WHICH A USER MIGHT WISH TO CREATE A NEW I/0 


MODULE ARE: ~ 


Not 


| TO USE A PSEUDO DEVICE OR FILE 


1 AN I/O MODULE COULD BE USED TO SIMULATE I/O TO/FROM A DEVICE 
OR FILE (discard IS AN EXAMPLE) 


§ TO SUPPORT A NEW FILE TYPE, SUCH AS ONE IN WHICH RECORDS HAVE 
‘MULTIPLE KEYS : 


§ REINTERPRETING A FILE 


roan I/O MODULE COULD BE DESIGNED TO OVERLAY A NEW STRUCTURE OW 
A STANDARD TYPE OF FILE (E.G., INTERPRETING AN UNSTRUCTURED 
FILE AS A SEQUENTIAL FILE BY CONSIDERING 80 CHARACTERS AS A> 
RECORD 


TO MONITOR A SWITCH 


tk AN I/O MODULE COULD BE DESIGNED TO PASS OPERATIONS ALONG TO 
ANOTHER MODULE WHILE MONITORING THEM IN SOME WAY — 


1 SEE audit_ 


J TO SUPPORT AN UNUSUAL DEVICE 


__ | BY (WORKING THROUGH THE tty 1/0 MODULE IN THE *RAW* MODE, 


- ANOTHER I/O MODULE MIGHT TRANSMIT DATA TO/FROM A DEVICE THAT 
IS NOT A STANDARD Multics DEVICE 
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IMPLEMENTATION RULES 


@ SEVERAL IMPLEMENTATION RULES MUST BE FOLLOWED FOR PROPER OPERATION 
WITHIN THE Multics 1/0 ENVIRONMENT. 


@® IN BRIEF, THE RULES ARE: 


J EXCEPT FOR THE ATTACH OPERATION, THE ENTRY DECLARATION AND . 
PARAMETERS OF A ROUTINE THAT IMPLEMENTS AN I/O OPERATION ARE THE | 
SAME AS THAT OF THE CORRESPONDING ENTRY IN iox_ . 


1 FOR EXAMPLE, IT IS NOT PERMISSIBLE TO DECLARE THE ENTRY VALUE 
FOR THE 'put chars' OPERATION AS ANYTHING BUT THE DECLARATION 
OF iox $put chars, WHICH IS ‘entry (ptr. ptr, fixed Benes 
fixed bin(35))' 
| ‘THE ATTACH OPERATION ACCEPTS FOUR ARGUMENTS: 
(ptr, (*)char(*) varying, bit{i) aligned, fixed bin (35)) 
CORRESPONDING TO: 


(ioeb ptr, option array, com_err_switch, code) 


) EXCEPT FOR ATTACH AND DETACH, THE "ULTIMATE" IOCB MUST BE REFERENCED 
USING THE VALUE OF iocb | ptr=>ioeb. actual_iocb _Ptr - IT IS INCORRECT 
TO USE JUST toeb ) ptr ; 


J IF AN I/O OPERATION CHANGES. ANY VALUES IN THE ULTIMATE I0CB, THE 
I/O MODULE MUST CALL iox_$propagate BEFORE RETURNING - 


J ALL I/O OPERATIONS MUST BE EXTERNAL ENTRY POINTS 
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R 


IMPLEMENTATION . 


rR ten 


ULES 


@ WHEN MODIFYING AN IOCB IPS (INTER PROCESS SIGNAL) INTERRUPT (quit, 
alrm OR cput) CANNOT BE TOLERATED 


@ 1/0 MODULES SHOULD MASK IPS SIGNALS AT FOLLOWS: 


1 ESTABLISH AN any_other HANDLER THAT CALLS terminate process IF 
MASKING IS IN EFFECT “ ~ 


) ,CALL hes $set_ips_mask (0, mask) 
) CHANGE THE IOCB 


1 CALL hes $reset_ips mask (mask, mask) 
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ENTRY POINTS. OF AN I/O MODULE 


@ AN I/O MODULE TYPICALLY HAS ENTRY POINTS FOR THE FOLLOWING: 
ATTACH OPERATION | 
OPEN OPERATION 
CLOSE OPERATION — 
DETACH OPERATION 
ANY OTHER OPERATION ENABLED BY THE ABOVE 


@ THE FOLLOWING Is A SIMPLIFIED SUMMARY OF THE STEPS TAKEN BY THE 
FIRST FOUR OF THE ABOVE ENTRY POINTS 


J TO AVOID ADDED CONFUSION, DETAILS ABOUT THE HANDLING OF CONTROL 
ORDERS AND MODES IS OMITTED 


1 COMPLETE DOCUMENTATION OF THE FOLLOWING IS FOUND IN THE SWG 
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ENTRY POINTS OF. 1/0 MODULE 


— 


@ -MAJOR STEPS OF THE ATTACH OPERATION 

A ‘SET iocb_ptr->ioed.open APPROPRIATELY 

‘I SET ioeb_ptr->ioeb.detach_iocb APPROPRIATELY 

) SET iocb_ptr=>attach_deserip’ptr APPROPRIATELY 


q CALL iox_$propagate 


_@ MAJOR. STEPS OF OPEN OPERATION 


-] SET actual_iocb ptr->iocb. ésperacicn® FOR EVEWY OPERATION THAT 
IS ALLOWED APPROPRIATELY 


l SET actual_iocb_ptr->open descrip ptr APPROPRIATELY 


l CALL iox_$propagate 
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ENTRY POINTS OF AN I/O MODULE 


wee eee eee 


@ MAJOR STEPS OF CLOSE OPERATION 


i] 


@ MAJOR STEPS OF DETACH OPERATION 


SET actual_iocb_ptr->iocb.open APPROPRIATELY 
SET actual_iocb_ptr->iocb.detach_iocb APPROPRIATELY 
SET BONES pore tne Openadeece TP vit TO NULL 
CLEAN UP (SET BIT COUNTS, FREE STORAGE, ETC.) 


CALL iox_$propagate 


SET iocb_ptr->ioeb.attach descrip ptr TO NULL 


CALL iox_$propagate 
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EXAMPLE OF AN I/O MODULE 


@® THE FOLLOWING BEHAVES EXACTLY LIKE THE SYSTEM MODULE discard (IT 
IS NOT THE CODE FOR discard ALTHOUGH MUCH OF THE CODE IS VERY 
SIMILAR) 


my_discard_attach: proc(iocb_ ptr,option_array,com_err_switch,code) ; 


del option_ array(*) char(*) varying; 
del buflen fixed(21); 

del bufptr ptr; 

del extend bit bit(1) aligned; 

del infptr ptr; 

del iocb ptr ptr; 

del key char(256) varying; 

del len fixed(21); 

del com_err_switch bit(1) aligned; 
del mode fixed; 

del newmode char(*); 

del oldmode char(*); 

del order char(*); 

del any _other condition; 

del blkptr ptr; 

dei actual _iocb ptr ptr; 

del code fixed(35); 

del mask bit(36) aligned; 


Zinclude iocb; 


del 1 block based (blkptr), 
2 attach descrip aligned, 
3 length fixed bin(17) init. (11), 
3 string char (11) init ("my_discard_"), 
open descrip aligned, 
3 length fixed bin (17), 
3 string char (40); 


N 


del free_area area based (get system free area _() 

del get system free _area_ entry() returns(ptr); 

del com_err_ ext entry options(variable); 

del hes  $set_ ips_mask entry (bit(36) aligned, bit(36) aligned); 
del hes $reset_ips mask entry (bit(36) aligned, bit(36) aligned); 
del iox_ ~$propagate ext entry(ptr); 

del iox _$err not open entry() options( variable) . 

del error_table $bad_mode fixed(35) ext; 

del error _tabie_ _$not_ detached fixed bin(35) ext; 

del error table $no_ record fixed(35) ext; i 

del error_table $wrong_no_of args fixed (35) ext; 

del error _table_ _$no operation fixed(35) ext 


Not To Be Reproduced 71 | | FISD 


EXAMPLE OF AN I/O MODULE 


del strean ae mode fixed int static init(2); 

del sequential output mode fixed int static init(5); 
-. @el keyed sequential output mode fixed int static init(9); 
- del direct _ output_mode fixed int static init(12); 


ao del (addr, hbound, null, eaze) builtin; 
ye Start Executable Code ae 


tnasic = nOMD: eae 
on any_. other call handler; 
~~. eall hes $set_ips_mask ("O"D, mask); 
-- Af hbound(option array,1)>0 then 
Pe: eall error Cerror_ table $wrong_no of args); 
- if ioeb ptr->ioeb.attach descrip ptr*=null() then 
sch call error (error _table $not _ detached) ; 
allocate block in (freé area); 
'- foeb ptr->ioeb.attach | descrip _ ptr, 
~ ... Loeb ptr->ioeb.attach data ptr = addr( attach aeaarian: 
—-. foeb ptre>ioeb. detach_ iocb = my discard_ detach; 
.* Loeb ptr->iocb.open = ~ my discard | open; 
. ,¢all iox_$propagate(iocb ptr); 
-- @all hes _$reset_ zee mash (mask mask); 
ee 


ee Internal pee to ‘handle all attach errors. 
Nee ae ho. Calls “com_err_" if the "com_err_ switch" is set. 

Re senawns Vas ae any case, returns to caller of attach external _ 
ane mes ' procedure with proper error code after ensuring | 
| that the IPS eaanrupe mask is. pestered: #/ 


- error: proc(c); - 
4h del c pixea(35)5 
- if mask*="0"b then call hes _ $reset_ ips mask(mask,mask) ; 
if com_err_switch then call” 
~ com_err_ (ec, amy discard mele 


' go to exit; 
end error; 
'. exits: return; 


my_ discard detach: entry(iocb ptr, code); 
code = 0; : 
+ mask. = AON; 

on any_ other call handler; . 
call hes $set_ips mask ("O"D, mask); | 7 
free iocb ptr=>iocb.attach data ptr => block; 
ioeb_ptr->iocb.attach descrip ptr = nyll(); 

-eall iox _$propagate(iocb ptr); 

call hes $reset_ips_ mask(mask, mask); 
return; 
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EXAMPLE OF AN I/0 MODULE 


Ee ce 


my _diseard_ open: entry(iocb_ ptr,mode,extend_bit,code) ; 
mask = "0"b; 
on any other call handler; 
_¢all hes $set_ips_ mask ("OMD, mask); 
actual ioeb ptr = ioeb | ptr=>ioeb. actual_iocb ptr; 
blkptr = actual_ iocb  ptr=>ioeb. attach _ data oaths 


if mode=stream | output_ mode then do; 
blkptr->open_ descrip.string = "stream | output"; 
blkptr->open_ descrip.length = 13; 
actual_ iocb | ptr->ioeb. put chars = my_ discard | put chars; 
actual_ iocb_  ptr=>iocb.modes = my_ discard modes; 
actual_ iocb_  ptr->iocb.control = my_ discard_ control; 
end; 
else if mode=sequential_ output | mode then do; 
blkptr=>open_ descrip.string = "sequential_ output"; 
_ blkptr->open_ descrip.length = 17; 
actual_iocb ptr->iocb.write record = my_discard_write; 
- end; 
else if modezkeyed_ sequential output _mode then do; 
blkptr->open_ descrip.string = Wkeyed_ sequential_ output"; 
blkptr->open_ descrip.length = 233 
‘actual_iocb  ptr->iocb. write record = my_discard_write; 
actual_ iocb_ ) ptr->riocb.seek _ key = my_ discard_ seek key; 
end; 
else if modesdirect _ output_mode then do; : 
bikptr->open_ descrip.string = "direct output"; — 
blkptr->open_descrip.length = 13; 
an actual _iocb )_ptr=->ioeb. write record = my_ diseard_ write; 
» * oe ioeb_ )_ ptr->iocb.seek _key = my_ discard_ seek key; 
end; 
else do; 
cali hes $reset ips mask(mas! 
eode = error table $bad_mode 
return; 
ends 


we 
© 
a 
9) 
oy) 
a 


if extend bit then blkptr->open_ ocecrep. string 
= blikptr->open_ descrip.string}!" -extend"; 


"> - aetual_ioeb ) ptr=>iocb. open descrip ptr = addr(open_ descrip); 


actual __ iocb ptr->iocb.close = my_ discard_ close; 
eall iox _$propagate(actual_ ioeb_ ptr); 

call hes | $reset_ips_ mask(mask ,mask) ; 

return; 


F15D 


EXAMPLE OF AN I/0 MODULE 


my discard close: entry(iocb ptr, code); 
code = 0; 
mask = nOMD: 
on any other 
call handler; 
call hes $set_ips mask ("0"b, mask); : 
actual ioeb ptr = ioeb ptr->iocb. actual iocb ptr; am 
blkptr~= actual_iocb ptr->iocb.attach data_ptr; 
actual _iocb ptr=>iocb.open descrip ptr = null(); 
actual iocb_ | ptr->iocb. detach_ ioecb = my_discard_ detach: 
actual_iocb ptr->iocb.open = my_ discard _open; 
actual iocb_ | ptr->iocb.control = “Lox _$err_ not_ open; 
actual _ iocb_ _ptr->iocb.modes = iox _$err_ not _open; 
call iox _$propagate(actual_ ioecb ptr); 
call hes $reset_ips_ mask(mask,mask) ; 
return; 


my discard put_ snareereneps eet. pas bufptr,buflen,code); 
code = 0; 
return; 


my _discard_modes: entry(iocb ptr ,newmode,oldmode,code) ; 
code = 0; 
oldmode = ">; 
return; 


my discard write: entry(iocb ptr, BUEP Er s buflen,code); 
code = 0; 
return; 


my discard control: entry(iocb_ ptr,order,infptr, code); 
if order = "io call" then code = error_ table _$no operation; 
else code = 0; 
return; 


my_ discard_ seek_key: entry(iocb_ptr,key,len,code); 
0; 
eae: = error_table $no record; 
return; 
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EXAMPLE OF AN 1/0 MODULE 


/* Internal procedure to handle faults while IPS interrupts 
are masked. While not masked, any signals are simply 
passed on up the stack to their normal handlers. For a 
fault while masked, the process is terminated (with the 
reason "unable to do critical I/0") because the I/0 
control blocks are in an inconsistent state, and we can 
tolerate neither spawning a command loop with interrupts 
masked hor a restart with a possibly changed mask. */ 


ndler: procedures 


ws ww ww we 


del continue _to signal_ entry (fixed bin(35)); 
del terminate process entry (char(*), ptr); 
del error_table $unable to do io fixed(35) ext; 


del 1 ti aligned, 
2 version fixed bin init (0), 
2 code | | fixed bin (35): 
if mask “= "0"b 
then 
do; 


ti.code = error table $unable to do io; /® very bad trouble */ 
call terminate process ("fatal _rror", addr (ti)); 
ends — 
“eall continue. to_signal_ (0); 
end handler; 


end my discard attach; | 
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EXAMPLE OF AN I/0 MODULE 


YOU ARE NOW READY FOR WORKSHOP | 


Not To Be Reproduced Te-12 
(End Of Topic) 


TOPIC VIIT 


Interprocess Communication 


. Page 
Overview e e = td » = e e s. s © 2 e e ® e e e e Ss e LJ 6 °e e 2 6 8=4 
IPC Terminology. e ® 6 e e e. e i] e o » e ® e t -] e e @ e e e e e 8-4 
IPC Protocol s e e s td e J es @ ® e ® s ¢ s e - @ es s Ss eS e ta 8=8 
Sending Wakeups. oe e@ #®& © e@ e ee ee @ © © ee @ © @ @# @ & @ @ 8=10 
IPC Subroutines e e eo 2 e e e e e » e @ s e t e s e ‘e e e @ s @ 81 1 
ipe_ Error Codes e e e oe @ © @ @® © © @© © @ & @ 8-13 
Creating and Destroying Event Channels ea we 6 ow ee oe a BHTS 
Invoking an Event-Call Procedure .... 2. « « © © « e « © 8=17 
Going Blocked on an Event Channel. . . . « «© © ce © « © « « 8H 18 
Reading an Event-Wait Channel. e 66 . e © © © ®@® e© e #® # @© @ 8-20 
Gontrol Functions. es @ s © 8 © 868 @ © @® 8 ® @ ® 8-23 
Masking or Assigning Priority. to Event Channels. o 0 eo te cw Be 27 
An Example Using Event-Wait Channels . . 1. « « © © © © © « S=29 
2 © © © © © © © © «© 8=35 


An Example Using Event-Call Channels . 


oo 
i] 
tte « 


F15D 


OVERVIEW 


@ THE SUBSYSTEM DESIGNER IS OFTEN FACED WITH REQUIREMENTS FOR 


SOPHISTICATED INTERPROCESS AND INTRAPROCESS COMMUNICATIONS FACILITIES 


-@ SUBROUTINES EXIST WHICH ALLOW THE DESIGNER TO HANDLE: 
ee ee SEVERAL COOPERATING PROCESSES 
“L ipe_ FACILITATES INTERPROCESS COMMUNICATION VIA "STOP AND Go" 


, SIGNALS: Bea eeen PROCESSES 


4% detec aie CONCURRENTLY ACCESSED ee BASES 


§ ‘set_ lock “ALLOWS COOPERATING PROCESSES TO SHARE A CRITICAL | 


% DATA BASE IN A SOR TEOELED MANNER 


0 INTRAPROCESS TIMING 


REAL-TIME TIMERS | 
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=} timer manager _ ALLOWS A PROCESS TO MAKE USE OF SEVERAL CPU OR 


OVERVIEW 


@ CONCEPT: 


f INTERPROCESS COMMUNICATION MEANS THAT TWO DISTINCT PROCESSES CAN 
PASS INFORMATION BACK AND FORTH BETWEEN THEM | 


f A SIMPLE FORM OF INTERPROCESS COMMUNICATION MIGHT INVOLVE THE 
SHARING OF A COMMON SEGMENT BETWEEN TWO PROCESSES 


) - THIS SIMPLE FORM OF COMMUNICATION DOES NOT ALLOW FOR DIRECT 
SINCHRONIZATION, HOWEVER 


1 Multies SUPPORTS A FULL INTERPROCESS COMMUNICATION FACILITY WHICH 
ALLOWS FOR CONTROL COMMUNICATION BETWEEN PROCESSES BY MEANS OF 
‘STOP’ AND *GO* SIGNALS 
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OVERVIEW 


@ THE INTERPROCESS COMMUNICATION MECHANISM 
l IS IMPLEMENTED BY THE ipe_ AND hes $wakeup SUBROUTINES 


1 IS ACTUALLY MANAGED/COORDINATED BY THE Multics "TRAFFIC 
- CONTROLLER", WHICH IS RESPONSIBLE FOR THE CREATION, DELETION, 
AND DISPATCHING OF PROCESSES © 


1 THE DISCUSSION. WHICH FOLLOWS WILL NOT DWELL ON TRAFFIC CONTROLLER 
Coreen: (SEE F80B) 


@ EXAMPLE OF INTERPROCESS COMMUNICATION: THE *send_message' AND 
‘accept_message' COMMANDS eS 


) THEY MAKE USE OF THE IPC FACILITY TO PASS TEXT MESSAGES FROM ONE 
_.  - PROCESS TO ANOTHER BY ape HEN PRINTED UPON THE BEGET OF A 
"WAKEUP'* 
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IPC TERMINOLOGY 


@ event 


AN EVENT IS THE OCCURRENCE OF SOMETHING SIGNIFICANT 


ONE PROCESS INFORMS ANOTHER THAT AN EVENT HAS OCCURRED BY CALLING 


hee $wakeup 


i al vs wee we 


A PROCESS WILL ONLY RECESVE NOTIFICATION OF AN EVENT WHEN IT IS 
"BLOCKED" 


DO NOT ASSUME THAT ONLY "SLEEPING" PROCESSES ARE SUBJECT TO "WAKING 
up" 


@ event channel 


IS THE ONE-WAY CONTROL PATH OVER WHICH NOTIFICATION OF THE OCCURRENCE 
OF EVENTS IS TRANSMITTED 


IS MAINTAINED BY TRAFFIC CONTROLLER © 


IS CREATED ON BEHALF OF A USER IN A PARTICULAR RING 


e Reproduced 8=4 ae F15D 


IPC TERMINOLOGY 


eventewait channel 


f AN EVENT CHANNEL WHICH, WHEN NOTIFIED OF AN EVENT, CAUSES THE 

PROCESS TO RESUME EXECUTION IF IT WAS "WAITING" (MORE TECHNICALLY, 

"BLOCKED"), OR AN EVENT CHANNEL WHICH MAY PERIODICALLY BE "POLLED" 
. TO DETERMINE ; IF THE EVENT eCCERRE? 


event-call channel | 


2 AN EVENT CHANNEL WHICH, WHEN NOTIFIED OF THE OCCURRENCE OF AN 
EVENT, CAUSES THE INVOCATION OF A SPECIFIED PROCEDURE IN THE 
PROCESS THAT CREATED THE CHANNEL 


blocked 


f A PROCESS CAN GO "BLOCKED" ON AN EVENT-WAIT CHANNEL, IN WHICH 
CASE IT WILL RESUME eee UPON EVENT all 


) IS A PROCESS STATE IN WHICH THE PROCESS IS INACTIVE AND "LISTENING" | 
TO AN EVENT-WAIT CHANNEL (OR CHANNELS) 


wakeup. 
) A WAKEUP IS THE NOTIFICATION OF THE OCCURRENCE OF AN EVENT - 


J IS SENT TO A SPECIFIC PROCESS ACROSS A SPECIFIED EVENT-WAIT -OR 
EVENT-CALL CHANNEL 
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IPC TERMINOLOGY 


channel_id 


§ Is THE fixed bin(71) VALUE WHICH IS USED TO UNIQUELY IDENTIFY A 
PARTICULAR EVENT CHANNEL 
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= IS ASSOCIATED WITH ONE AND ONLY ONE PROCESS 


@ process id 
f IS THE bit(36) VALUE WHICH UNIQUELY IDENTIFIES A PROCESS 


. IN ORDER TO SEND A WAKEUP, ONE SPECIFIES THE channel id OF THE 
EVENT CHANNEL AND THE process_id OF THE pe ane OWNING THE EVENT - 
CHANNEL 


® message 


D A 72-BIT VALUE OF ARBITRARY CONTENT CONTAINING INFORMATION WHOSE 
INTERPRETATION IS APPLICATION DEPENDENT - 
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CHANNEL TYPE 


event-call 


event-wait 
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IPC TERMINOLOGY 


OPTIONS 


When a process establishes an event call channel, 
execution proceeds with the statement immediately 
following the call to create the event-call channel. 
The process does not (and should not) go blocked 
on the channel. If/when a wakeup is received, 
execution is momentarily interrupted and the 
procedure specified in the declaration is invoked. 
When this procedure completes, execution of the 
interrupted procedure continues. 


There are two options available: 


1) The process can explicitly go blocked on the 
channel by calling ipe $block. In this case, 
the statement following the call to ipe $block 
will not be executed until/unless a wakeup is 
received on that channel. Notice that this 
effectively blocks the process itself. 


2) The process may elect not to go blocked on 
this channel at all. Rather it will, from time 
to time, explicitly inquire as to whether or 
not a wakeup has been received. 


This polling technique is implemented via the 
ipe_$read_ev_chn entry point. 
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IPC PROTOCOL 


SINCE IT IS NECESSARY TO KNOW THE channel_id AND process_id IN 
ORDER TO COMMUNICATE WITH ANOTHER PROCESS, SOME STANDARD PROTOCOL 
IS REQUIRED — 


THE STEPS REQUIRED TO SET UP INTERPROCESS COMMUNICATION: 


f STEP 1 


Pe 


f PROCESS 1 CREATES AN EVENT CHANNEL, BY WHICH ACT PROCESS 1 
RECEIVES THE channel_id OF THE NEWLY CREATED EVENT CHANNEL 


my 


f STEP 2 


f PROCESS 1 STORES THE channel_id AND ITS OWKR process id IN 
SOME KNOWN LOCATION IN A SHARED SEGMENT, THUS ALLOWING THESE 
VALUES TO BE ACCESSED BY OTHER COOPERATING PROCESSES 


f STEP. 3 . | | s 


j- SOME OTHER PROCESS, SAY PROCESS 2, OBTAINS THE process id AND 
channel_id VALUES FROM THE SHARED SEGMENT ae 


IT IS NOW POSSIBLE FOR PROCESS 2 TO SEND WAKEUPS TO PROCESS. 1. - 


Fi5D 


IPC PROTOCOL 


@ COMMUNICATION ON AN EVENT CHANNEL IS ONE=}WAY ONLY > 


@ IF PROCESS 1 WISHES TO COMMUNICATE VIA ipe_ WITH PROCESS 2 IN THE 
ABOVE SCENARIO: 


f PROCESS 2 WOULD NEED ITS OWN EVENT-CHANNEL 


J IT WOULD BE.NECESSARY FOR PROCESS _ 2 TO REPEAT THE STEPS OUTLINED 
ABOVE 


@ WHENEVER INTERPROCESS COMMUNICATION IS USED BETWEEN USER PROCESSES. 
AND A SYSTEM PROCESS, A SUBROUTINE IS GENERALLY CALLED TO OBTAIN 
THE channel_ id AND process id OF THE SYSTEM PROCESS 
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IPC PROTOCOL 
SENDING WAKEUPS 


@ WAKEUPS ARE SENT FROM ONE PROCESS TO ANOTHER BY CALLING THE hes $wakeup 
ENTRY POINT 


Gall hes $wakeup (process id, channel_id, message, code); 
l process id SPECIFIES TARGET PROCESS 
) channel_id IDENTIFIES CHANNEL THAT WAS SET UP BY TARGET PROCESS 


] message IS TWO WORDS HAVING SOME AGREED-UPON MEANING FOR THE 
COOPERATING PROCESSES 


) code IS A NON-STANDARD ERROR CODE (NOT IDEALLY SUITED TO com _err_) 

1 = 1 IF SIGNALLING WAS CORRECTLY DONE, BUT THE TARGET PROCESS 

WAS IN THE STOPPED STATE (THE STATE A PROCESS IS IN JUST 
BEFORE THE FINAL STEP IN PROCESS TERMINATION) 


f = 2 IF AN INPUT ARGUMENT WAS INCORRECT, AND SIGNALLING WAS 


ABORTED . 

1 = 3 IF THE TARGET PROCESS WAS NOT FOUND, AND SIGNALLING : 
WAS eenree 

1 = error_ table $invalid_ channel IF THE CHANNEL IDENTIFIER 


WAS NOT VALID ~ 
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IPC SUBROUTINES 


@ EVENT CHANNELS ARE CREATED, DESTROYED, AND MANIPULATED VIA THE ipe 
SUBROUTINE "e 


4 
@ ipe_ ENTRY POINTS MAY BE CLASSIFIED: 

l CREATING AND DESTROYING EVENT CHANNELS 
) ipe_$create_ev_chn 
f ipe_$delete _ev_chn 
q ipe_$decl_ev_call_chn 
l ipe_$decl_ev_wait_chn 

GOING BLOCKED ON AN EVENT WAIT CHANNEL 

1 ipe_$block 
] READING AN EVENT-WAIT CHANNEL 


) ipe $read_ev_chn 
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IPC SUBROUTINES 


1 CONTROL FUNCTIONS 
J ipe_$drain_chn 
) ipe $cutoff 


J ipe $reconnect 


] MASKING OR ASSIGNING PRIORITY TO EVENT CHANNELS 
ipe $set_call_prior 
2 ipe_$set_wait_prior 


0 ‘Ape _$mask_ev_calls 


1 ipe $unmask_ev_calis 
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IPC SUBROUTINES 
IPC ERROR CODES 


@ ALL CALLS TO ipc_ RETURN A NONSTANDARD STATUS CODE 


Wt 


Not To Be Reproduced 


MEANING 
‘No error. 
‘Aring violation; for instance, the event channel 


‘resides in a ring that is not accessible from 
the caller's ring. 


‘The table that contains the event channels for 


a given ring was not found. 


The specified event channel was not found. 


A logical error in using the ipe_ subroutine ; 
Was encountered; for instance, waiting on an 


event-call channel. 


A bad argument was passed to the ipe_ subroutine; 


A 
for instance, a zero-value event channel _id. 
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IPC SUBROUTINES 
IPC ERROR CODES 


@ convert _ipc_code_ 


| AN OBSCURE SUBROUTINE THAT CONVERTS A NONSTANDARD ipe_ CODE TO A 
SYSTEM STANDARD CODE. 


J MAPPING | Sb ges 
ipcode oe ____returned code 
0 7 i oe | _ . 
4a error_table $bad_ring brackets 
2-4 error table $no_message 
:5 error table $argerr 
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IPC SUBROUTINES 
CREATING AND DESTROYING EVENT CHANNELS 


@® ipe CREATES EVENT-WAIT CHANNELS BY DEFAULT; HENCE, IN ORDER TO 
CREATE AN EVENT-CALEC CHANNEL, IT IS FIRST NECESSARY TO CREATE AN 
EVENT-WAIT CHANNEL, AND THEN TO CHANGE IT INTO AN EVENT-CALL CHANNEL 


@® ENTRY POINTS TO CREATE AND DESTROY CHANNELS 


 ipe_$create_ev_chn 


f CREATES AN EVENT-WAIT CHANNEL IN THE CURRENT RING, RETURNING 
THE channel _ id OF THE NEWLY CREATED CHANNEL, AND THE NONSTANDARD 
STATUS CODE 


d ipe $delete ev_chn 


fl DESTROYS AN EVENT CHANNEL PREVIOUSLY CREATED BY THE PROCESS, 
- REQUIRING THE channel_id OF THE CHANNEL TO BE DESTROYED AND 
RETURNING THE NONSTANDARD STATUS CODE 


t ONLY THE PROCESS CREATING AN EVENT CHANNEL (OR THE INITIALIZER 
PROCESS) MAY DESTROY IT 


) EVENT-CHANNELS ARE AUTOMATICALLY DESTROYED AT PROCESS 
TERMINATION TIME ) 
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IPC SUBROUTINES 
CREATING AND DESTROYING EVENT CHANNELS 


SS SS | aan 


f ipe $decl_ev_cali_chn 


CHANGES AN EVENT-WAIT CHANNEL INTO AN EVENT-CALL CHANNEL 
call ipe_$decl_ev_cali_chn (channel _id, proc entry, 

data _ ptr, priority, ecde); 
J channel_id IDENTIFIES EVENT-WAIT CHANNEL TO BE CHANGED 


f proc _ entry IS ENTRY VALUE uF "HANDLER® TO BE INVOKED UPON 
RECEIPT OF WAKEUP 


f data ptr POINTS TO A USER-DEFINED REGION CONTAINING DATA 
FOR proc_entry TO INTERPRET 


1 priority INDICATES WHICH (OF POTENTIALLY MANY) SIMULTANEOUS 
EVENT=<CALL CHANNEL EVENTS IN THIS RING WILL BE HONORED 
FIRST (THE LOWEST NUMBER IS HONORED FIRST) 


[ ipe $decl_ev_wait_chn 


f 


i 


USED TO CHANGE AN EVENT-CALL CHANNEL INTO AN EVENT=-WAIT CHANNEL 


IT REQUIRES THE channel_id OF AN EVENT-CALL CHANNEL AND IT 
RETURNS THE NONSTANDARD STATUS CODE 


NOTE: SINCE EVENT-WAIT CHANNELS ARE CREATED BY DEFAULT, THIS 
IS USED ONLY TO CHANGE AN EVENT-CALL CHANNEL BACK INTO AN 
EVENT=-WAIT CHANNEL 
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IPC SUBROUTINES 
INVOKING AN EVENT-CALL PROCEDURE 


WHEN A PROCESS IS AWAKENED ON AN EVENT-CALL CHANNEL, CONTROL IS 


IMMEDIATELY PASSED TO THE "HANDLER" PROCEDURE PREVIOUSLY SPECIFIED 
IN THE CALL TO ipe $decl_ev_call_chn 


"HANDLER" WILL BE CALLED WITH ONE ARGUMENT, A POINTER TO A STRUCTURE 


CONTAINING INFORMATION ABOUT THE WAKEUP 


THE HANDLER SHOULD DECLARE THE FOLLOWING STRUCTURE BASED UPON 
THE event_call_info_ptr PARAMETER 


del 1 event_call_info based (event_call_info_ptr), 
2 channel_id- fixed bin(71), 
2 message . fixed bin(71), 
2 sender bit(36), 
2 origin, 
3 dev_signal bit(i8) unal, 
3 ring bit(18) unal, 
2 data_ptr ptr; 
RECALL: THE VALUE OF data _ ptr WAS SPECIFIED IN THE CALL TO 
ipe_$decl_ev_call_chn AND POINTS TO STRUCTURE OF THE USE *S CHOOSING 


SEE >1dd>ineclude>event_call_info.inel.pl1 
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IPC SUBROUTINES 
GOING BLOCKED ON AN EVENT CHANNEL 


ipe_$block 


CAUSES THE PROCESS TO GO BLOCKED ON THE SPECIFIED EVENT-WAIT 
CHANNEL(S) ; 


IN-LINE PROGRAM EXECUTION WILL NOT PROCEED UNTIL/UNLESS A WAKEUP 
IS RECEIVED ON ONE OF THE CHANNELS 


USAGE 
call ipe $block (wait list ptr, event wait_info ptr, code); 


wm we cod 
ow ae aod 
ewan ad 


“INPUT INPUT OUTPUT 


A POINTER TO THE BASE OF A USER-ALLOCATED "WAIT-LIST" STRUCTURE 


IS REQUIRED 
Q ‘THIS WAIT=-LIST STRUCTURE CONTAINS THE channel_idS OF THE 
EVENT-WAIT CHANNELS TO GO BLOCKED ON (TO LISTEN TO) 


del 1 wait list based aligned, 


2 nehan fixed bin, 
2 pad bit(36), 
2 channel_id (n refer wait_list. nehan) fixed bin(71); 
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IPC SUBROUTINES 
GOING BLOCKED ON AN. EVENT CHANNEL 


| Ape. $block ALSO REQUIRES A POINTER TO THE BASE OF A STRUCTURE 
_ INTO WHICH IT CAN PUT INFORMATION ABOUT THE: EVENT THAT FREED THE 
PROCESS FROM ITs ‘BLOCKED STATE 


del 1 event _ wait, info. ‘eligned based(event. wait_ info or 
2 channel_id fixed bin(71), 
2 message .—:~«sCfixed bin(7i), 
2@sender .._—*Bbit(36), 
2 origin, 
3 dev_signal bit(18) unaligned, 
3 ring bit(18) unaligned, 


2. channel_index = fixed bin;  §/* -INDEX INTO 
SOW Bath eles ss cers a wait list.channel_id */ 


=. POSSIBLE USE OF event_ wait info. sender: 


- PASS sender TO get_ ‘userid. SUBROUTINE (WHICH USES THE RESTRICTED 
SEGMENT >sci>answer_ Eapte). AND IT. WILL RETURN Person_id AND 
pomdeete id. oor 


‘| SEE >1dd>include>event_wait_info.inel.pl1 
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IPC SUBROUTINES 
READING AN EVENT-WAIT CHANNEL 


@® THE PROCESS CREATING AN EVENT-WAIT CHANNEL MAY SIMPLY INQUIRE AS TO 
WHETHER OR NOT AN EVENT HAS OCCURRED ON A SPECIFIED EVENT-WAIT 
CHANNEL = THIS IS REFERRED TO AS "READING" THE EVENT-WAIT CHANNEL 


@® READING THE EVENT "RESETS" IT 


@ ipe_ $read_ev_chn 


f READS THE INFORMATION ABOUT AN EVENT ON A SPECIFIED EVENT-WAIT 
CHANNEL IF THE EVENT HAS OCCURRED 


q "REQUIRES AS INPUT THE channel_id OF THE EVENT-WAIT CHANNEL TO BE 
READ 


f RETURNS A VALUE INDICATING WHETHER OR NOT AN EVENT OCCURRED, AND 
IF AN EVENT HAS OCCURRED, RETURNS INFORMATION ABOUT THAT EVENT 


IN event Wait infs STRUCTURE 


§ ALSO RETURNS THE NONSTANDARD STATUS CODE 
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IPC SUBROUTINES 
READING AN EVENT-WAIT CHANNEL 


!11 70 
! pr DEMO_READ.pli 1 


DEMO_READ: Proc; 


del 
ipe_ $create_ ev chn Stee (fixed bin (71), fixed bin (35)), 
ipe_ $delete_ev_chn entry (fixed bin(71), fixed bin(35)), 
ipe $read_ev_chn entry (fixed bin (71), fixed bin; ptr, 
fixed bin(35)), 
hes $wakeup entry (bit (36), fixed bin (71), fixed bin (71), 
fixed bin (35)), 
addr builtin, é 
ioa_ entry options (variable), 
com_err_ entry options (variable), 
get process id_ entry returns (bit (36)); 
del 


channel_id fixed bin (71), 
message fixed bin (71), 
code fixed bin (35), 
ev_occurred fixed bin; 


Zinclude event_info; /* My own private include file */ 


/* This short example illustrates the fact that reading an event-wait 
channel has the effect of 'resetting' it. ie ae 


call ipe $create_ev_chn (channel_id, code); 
if code “= 2 then call trouble; 
message = : 
call hes. eee (get_process id_ QO, channel _ id, message, 
" code); 
, if code “= 0 then call trouble; 
else call ioa_ ("WAKEUP successfully completed. ");3 
call ipe_ $read_ ev_chn (channel_id, ev_occurred, 
addr (event _info), eode); 
if code “= 0 then call trouble; 
call ioa_ ("read_ ev_chn says the event “[has not* shas*] oceu 
a \erred, and the message is “~i.", ev _occurred+1, event _info.message) ; 
call ipe_ $read_ev_chn (channel _id, ev occurred, 
addr (event _info), eode) > 
_if code “= 0 then call trouble; 
call ioa_ ("A second call of read_ ev_chn says: The event “Ch 
\eas not*s;has*] occurred. Ms ev_occurred+1); . 


troudle: proc; 
_ call com_err_ (code, "DEMO READ", "Something unexpected 
\e occurred."); , 
goto bottom; 

end trouble; 2 
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IPC SUBROUTINES 
READING AN EVENT-WAIT CHANNEL 


bottom: 
call ipe $delete ev_ chn (channel _id, code); 

/* Ignore bad code, if it should occur. #/ 

end DEMO_READ; 


! DEMO _READ 

WAKEUP successfully completed. 

read_ev_chn says the event has occurred, and the message is 1. 
A second call of read_ev_chn says: The event has not occurred. 
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IPC SUBROUTINES 
CONTROL FUNCTIONS 


@® RESETTING CHANNELS AND INHIBITING THE NOTIFICATION OF EVENTS 


“bo tpe_sdrain: 


“| RESETS AN EVENT-WAIT CHANNEL SO THAT ANY PENDING EVENTS (EVENTS 
THAT HAVE BEEN RECEIVED AND QUEUED UP BUT NOT PROCESSED FOR 
THAT CHANNEL) ARE REMOVED 


1 ae ices | OF THE EVENT-WAIT CHANNEL 
- ) RETURNS THE NONSTANDARD STATUS CODE 
OFTEN USED IN ‘cleanup’ HANDLERS 
0 ipe_$cutoff 


2 INHIBITS THE "READING" (IN THE GENERAL SENSE) OF PENDING OR - 
FUTURE EVENTS ON A SINGLE SPECIFIED EVENT (WAIT OR CALL) CHANNEL 


{| NOTE THAT MORE (NEW) EVENTS CAN BE RECEIVED (AND QUEUED UP), 
BUT THEY WILL NOT CAUSE THE PROCESS TO WAKE UP 


I REQUIRES THE channel id OF THE EVENT CHANNEL TO CUTOFF, AND 
RETURNS. THE NONSTANDARD STATUS CODE 


Ol; AN ATTEMPT TO READ -A CUTOFF CHANNEL RESULTS IN CODE 4 C 
- LOGICAL ERROR IN USING ipc_ WAS ENCOUNTERED) 
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IPC SUBROUTINES 
CONTROL FUNCTIONS 


) ipe $reconnect 


1 ENABLES THE READING OF EVENTS ON A SINGLE SPECIFIED EVENT 
CHANNEL FOR WHICH READING HAD PREVIOUSLY BEEN INHIBITED BY A 
CALL TO ipe_$cutoff 


) WHEN CALLED, ALL PENDING SIGNALS, WHETHER RECEIVED BEFORE OR 
DURING THE TIME READING WAS INHIBITED, ARE HENCEFORTH AVAILABLE 
FOR READING (IN THE GENERAL SENSE) 


J REQUIRES THE channel id OF THE EVENT CHANNEL WHICH HAD BEEN 
CUTOFF, AND RETURNS THE NONSTANDARD STATUS CODE 


F15D 
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IPC SUBROUTINES 
CONTROL FUNCTIONS 


!print DEMO CUTOFF.pli 1 
DEMO_ CUTOFF: proce; 


/* This experiment demonstrates the cutting off and reconnection of 
a single channel. It accomplishes this in the following steps: 


get wait channel 

issue wakeup with msg = 1 
eutoff channel 

issue wakeup with message = 2 
reconnect 

read channel twice 

delete channel 


NON EW \- 


ioa_ is called at strategic points to confirm ipe's behavior. */ 


del 
channel_id fixed bin (71), 
code fixed bin (35), 
i fixed bin, — 
ev_occurred fixed bin, 
addr builtin, . 
get_process id entry returns (bit (36)), 
message fixed bin (71), 
hes $wakeup entry (bit (36), fixed bin (71), fixed bin (71), 
fixed bin (35)), 
ipe_$create_ev_chn entry (fixed bin (71), fixed bin (35)), 
ipe $delete_ ev_ ~ehn entry (fixed bin (71), fixed bin (35)), 
ipe_ ~ $eutoff entry (fixed bin (71), fixed bin (35)), 
ipe_ ~ $reconnect entry (fixed bin (71), fixed bin (35)), . 
ipe $read_ev_chn entry (fixed bin (71), fixed bin, ptr, 
fixed bin (35)), 
(com_err_, ioa_) entry options (variable), 
event info aligned, 
channel_id fixed bin (71), 
message fixed bin (71), 
sender bit (36), 
‘origin, 
dev_signal bit (18) unaligned, 
ring bit (18) unaligned, 
channel index fixed bin: 
eall- ipe $create_ ev chn (channel_id, code); 
if code “= 0 then call trouble; 
call nes $wakeup (get _process_ id_ (), channel_id, 1, code); 
if code “= 0 then call trouble; 
call ioa_ ("First wakeup successfully per formed with msg = 1%); 
call ipe $cutoff (ehannei_id, code); 
if code “= 0 then call trouble; 
call ioa ("Channel successfully cutoff."); 
call hes $wakeup (get process_id_ (), channel_id, 2, code); 
if code “= 0 then call trouble; a ; 


NWWMMN fh — 
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IPC SUBROUTINES 
CONTROL FUNCTIONS 


call ioa_ ("2nd wakeup performed while channel was cutoff."); 
call ipe $reconnect (channel _id, code 
if code “= 0 then call trouble; 
do i= i1 to 2; 
call ipc_ ‘$read_ ev_chn (channel_id, ev_occurred, 
addr (event_ info), code); 
if code “= 0 then call aeeaey 
eall ioa ("*(First*;Second*] reading channel after reco 
\ennect. The event “[{hasn't*;has*] occurred. “{*s*;°*/The message is * 
\ci.”]", i, ev_occurred+1, ev “oceurred+1, event _ info .message) ; 
end; 
wrapup: 
call ipe $delete_ev_chn (channel_id, code); 
return; 


trouble: proc; 
call com_err_ (code, "DEMO CUTOFF", “Error not expected."); 
goto wrapup; 
end trouble; | 


end DEMO CUTOFF; 


1DEMO CUTOFF 

First wakeup successfully performed with msg = 1 

Channel successfully cutoff. | 

2nd wakeup performed while channel was cutoff. 

First reading channel after reconnect. The event has occurred. 
The message is 1. 

Second reading channel after reconnect. The event has occurred. 
The message is 2. 


my 
ed 
wn 
o 


Not Tce Be Reproduced 8=26 


IPC SUBROUTINES 
MASKING OR ASSIGNING PRIORITY TO EVENT CHANNELS 


ES EE EEE TEE EE eS 


* SINCE THERE IS ACTUALLY SOME DELAY BETWEEN THE TIME A WAKEUP IS. 
RECEIVED AND THE TIME THE PROCESS IS NOTIFIED, IT IS POSSIBLE FOR 
SEVERAL WAKEUPS TO BE PRESENT BY THE TIME A PROCESS IS AWAKENED 


J. IT Is POSSIBLE TO ‘SPECIFY RELATIVE PRIORITIES AMONG EVENT=CALL 
33 Ceennee | 


7 POSSIBLE TO ‘SPECIFY THAT EVENT-CALL CHANNELS HAVE PRIORITY OVER 
EVENT-WAIT CHANNELS AND VICE VERSA 


f BY DEFAULT, EVENT-CALL CHANNELS HAVE PRIORITY OVER EVENT-WAIT 
_ CHANNELS 7 | ee, 
@ MANIPULATING PRIORITIES 
1 ipe $set_wait_prior 
f CAUSES EVENT-WAIT CHANNELS TO BE GIVEN PRIORITY OVER EVENT=CALL 
CHANNELS (THIS IS NOT THE DEFAULT) 


0 ONLY EVENT CHANNELS IN CURRENT RING ARE AFFECTED 
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IPC SUBROUTINES 
MASKING OR ASSIGNING PRIORITY TO EVENT CHANNELS 


TES ASE OEE Ee 


Spi ees 


— CAUSES EVENT-CALL CHANNELS TO BE GIVEN PRIORITY OVER EVENT-WAIT 
CHANNELS (THIS IS THE DEFAULT) 


ONLY EVENT CHANNELS IN CURRENT RING ARE AFFECTED 


eae ev_calls 


0 CAUSES THE ipe $block ENTRY POINT TO COMPLETELY IGNORE ALL 
EVENT-CALL CHANNELS IN THE CALLER'S RING (I.E., TO MASK THEM) 
~$O THAT ANY WAKEUPS SENT ACROSS EVENT<CALL CHANNELS ARE INSTEAD 
eeeer UP 


ll CAUSES A "MASK COUNTER" TO BE INCREMENTED; MASKING IS IN EFFECT 
SO LONG AS COUNTER # 0 


ipe_$unmask_ev_calls 


q DECREMENTS THE “MASK COUNTER"; EVENT-CALLS. ARE UNMASKED 
(NOTICED) WHEN COUNTER = 0 ee ae a 


2. SEVERAL EXTERNAL PROCEDURES MAY NEED TO MASK AND UNMASK. AN 
INCREMENTAL COUNTER PERMITS INDISCRIMINATE CALLS WITHOUT FEAR 
OF PRE ape ne UNMASKING. 
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IPC SUBROUTINES 
AN EXAMPLE USING EVENT-WAIT CHANNELS 


§print abs _print_ punch.pli 1 
abs_print_punch: proc; 


del ME char (15) init ("abs ; print_ ‘puneh™) static options (constant); 
del hes $initiate entry (char (*), char (*), char (#), 
fixed bin (1), fixed bin (2), ptr, fixed bin (35)), 
get_process id entry returns (bit (36)), 
ipe_$create_ev_chn entry (fixed bin (71), fixed bin (35)), 

ipe $block entry (ptr, ptr, fixed bin (35)), 
(ioat , com_err_) entry options (variable), 

expand_ pathname_ entry (char (#), char (#), char (*), 

fixed bin (35)), 

dprint_ entry (char (*), char (*), ptr, fixed bin (35)); 


del code fixed bin (35); . 

del 1 ipe_info based (seg_ptr), 
2 target_ process id bit (36) unal, 
2 target_chnl_id fixed bin (71)5 


| %include dprint_ arg; * USED BY dprint_ SUBROUTINE ¥/ 


del 1 wait_list based (wait_list_ per), 

2 nchan fixed bin, 

2 channel_id (0 refer (nehan)) fixed bin (11); 
del event info, 


channel id fixed bin (71); 
message fixed bin (71), 
sender bit (36), 
origin, 

3 dev_signal bit (18) aia: 
3 ring bit (18) unal, 
2 channel_index fixed bin; 


MN MN 


dei (seg_ ptr, wait list_ptr) ptr 


del dprint_paths$ char (168) axeernal static; 
del dir char (168), entry char (32); 


/*® SUPPLY ipe PROTOCOL INFORMATION */ 
call hes ; Sinitiate ("> udd>F 15dw> Auerbach", "“ipe segi", "™", 
05-1; seg ptr, code); 
if seg ptr = null () then call ERROR; 
vor call ipe_ $create ev_chn ( 
seg_ _ ptr -> ipe info.target_chnl_id, code); 
if code “= 0 then call ERROR; 
seg ptr -> ipe_info. target_process_id = get process id (); 


/* NOW GO BLOCKED WAITING FOR FURTHER INSTRUCTIONS #/ 
allocate wait_ ge 
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IPC SUBROUTINES 
AN EXAMPLE USING EVENT-WAIT CHANNELS 


aE CE Re gE 


wait list ptr -> wait_ list. nehan = 1; 
wait list ptr -> wait list.channel id (1) = 
~ seg_ ptr => ipc_ info. target_ ehnl_ id; 


call ipe $block (wait list ptr, addr (event_info), code); 
if code “= 0 then call ERROR; 


/* AN EVENT HAS OCCURRED - EXAMINE #/ | 

eall ioa_ ("CHANNEL ID “i*/MESSAGE “i*/SENDER “.3b", 
event_ info.channel_ id, 
event _ _info.message, 
event info.sender); ; 

call ioa_ ("DEV SIGNAL *.3b*/RING *.3b°/CHANNEL INDEX “i", 
event_ info. origin. dev_signal, 
event info.origin.ring, 
event info.channel_ index); 


if event_info.message = 0 then goto CANCEL; 
if event _info.message = 1 then goto PRINT; 
if event info.message = 2 then goto PUNCH: 
/* INVALID MESSAGE */ 
call com err (0, ME, “INVALID REQUEST CODE “i", 
event _iTifo.message) ; 
return; 


CANCEL: 

/*® NO PRINTING OR PUNCHING AT ALL y, 
call ioa_ ("PRINT/PUNCH REQUEST CANCELLED"); 
return; 


i=) ° 

/* PRINT REQUEST */ 
dprint_arg.pt_pch = 1; 
dprint_ arg.output module = 1 
dprint arg.class = “printer® 
goto DPRINT; 


PUNCH: 

/*® PUNCH REQUEST #/ 
dprint_arg.pt_peh = 2; 
dprint _arg.output_ module = 3; 
dprint_ arg.class = "punch"; 
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IPC SUBROUTINES 
AN EXAMPLE USING EVENT-WAIT CHANNELS 


eall expand pathname (dprint_ paths$, dir, entry, code); 


if code “= 0 then call ERROR; | 


-dprint arg.version = 4; 

. dprint 
 dprint arg.delete 
 dprint arg.queue = 3; 


arg.copies = 


15 
0; 
+ 
dprint arg.notify = 1; 
dprint arg.heading = ""; 
dprint arg.dest = "";5 
dprint arg.nep = "0O"b; 
dprint arg.single = "0"b; 
dprint_ arg.non edited = MOND: 
dprint_ arg. truncate = "OND; 
dprint_ arg.center top_ label = "Obs 
dprint_ arg.center bottom label = "O"D; 


dprint_ arg.lmargin = 10;— 


_dprint_arg.line lth = 1; 
_ dprint_arg.page 1th = -1; 
we 


dprint_arg.top Iabel = ""; 


’ dprint_ arg.bottom label = ""; 
call dprint (rtrim (dir), rtrim RenEr ys 


addr (dprint_arg), code); 


"if code “= 0 then call ERROR; 


_/* REPORT 


ERROR: 


FINIS: 


ACTION AND QUIT #/ | Te 


_¢all ioa_ ("*a>*a “[DPRINT* s DPUNCH*] REQUEST SUBMITTED." 


dir, entry, .dprint arg.pt_ pch); 
eall ioa_ ("END “a™, ME); 


proc; ; —o * 

eall com_err_ (code, ME); 
goto FINIS; © ‘ 
end; 


end abs oe Suneh: 
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IPC SUBROUTINES 
AN EXAMPLE USING EVENT-WAIT CHANNELS 


—ES (SEE ee 0 eee 


13:12 0.122 15 


int driver_ipce.pli 1 


driver_ipc: proc; 


del 


del 


del 
del 
del 
del 


del 


del. 


del 


/* 


al 


ME char (10) init ("driver ipe™") static eotions. (constant); 
hes $initiate entry (char (®), char (*), char (*), 
fixed bin (1), fixed bin (2), ptr, fixed bin (35)); 
code fixed bin (35); 
seg_ ptr ptr; 
1 ipe_info based (seg ptr), 
2 his process id bit (36), 
2 his_chnl_id fixed bin (71); 
hes $wakeup entry (bit (36), fixed bin (71), fixed bin (71), 
fixed bin (35)); 
dprint_paths$ char (168) external static; 
message fixed bin (71); 
(ioa_, com_err_) entry options (variable); 


PICK UP ABSENTEE'S PROCESS AND CHANNEL IDS #/ 
call hes $initiate ("Dudd>F15dw>Auerbach", "ipe segi™, "", 
0, 1, seg_ptr, code); 
if seg_ptr = null () then call ERROR; 


TELL ABSENTEE TO PRINT AND GIVE IT A PATH TO PRINT #/ < 
dprint paths$ = ">udd>F15dw>Auerbach>abs print _ punch. »pLI"; 
7 message = 1; 


FIRE OFF WAKEUP SIGNAL #/ 
call hes $wakeup (ipe info.his process id, 
ipe_info.his_ chnl_id 
message, ' 
code) ; 
if code “= 0 then call ERROR; 


eall ioa_ ("“LDPRINT*; ;DPUNCH®] REQUEST FOR “a*®, 
message, a paths$); 
call ioa_ ("END “a™, ME); 


ERROR: proc; 


PINGS: 


call com_err_ (code, ME); 
goto FINIS; ~ 
end; 


end driver_ipe; 
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 tprint ipe_example.absin 1 


abs _print_punch | 


~ logout 


&quit 


pp 41:12 0. 020 1 


_ fear ipe er anne - 
27 already requested 
Pr 10255 0. 113 6 —s 


!tdriver _ipe 

DPRINT REQUEST FOR Soadsk iséupduerbacko abs , print _punch.pl1 
END driver ipe 

or 11213 0.068 4 


.. 'ldr -long 7 


Queve 3: 1 request. 12 total requests. 
Pathname: . ee npc eres print_ punch.pl1 
Type: ae ese 
Copies: . é 
Time: 6 Mane a 03/13/80 10:56 sist Thur 
Delete: | no eb, 7 ia | 
Notify: — - yes 
| Options: - eindent 10 


r 11:13 0.138 10 
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{print ipe example.absout 1 


_ Absentee user Auerbach F15dw logged in: 03/13/80 17:14 mst Thur 
r 11:14 1.827 34 


abs print_punch 

CHANNEL ID 98439864967772869469 

MESSAGE 7 

SENDER 004670305344 3 oe 

DEV SIGNAL 000000 

RING 000004 

CHANNEL INDEX 1 

>udd>F 15dw> Auer bach>abs } print_punch.pli DPRINT REQUEST SUBMITTED. 
END abs Seve punch 

r 11:15 2.314 27 


logout 


Absentee user Auerbach Fi5dw logged out 03/13/80 11:16 mst Thur 
CPU usage 2 sec, memory usage 1.0 units 


r 11:17 0.084 14 
From I0.SysDaemon (printer): 


printed >udd>F1i5dw>Auerbach>abs print_punch. plt — 
$0.06 queve 3 prtd 10115 j 
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ApEeRe listen.pl1 1 


‘listen: proc; 
del ipe $create ev ohn entry ‘Gite (71), fixed (359), 
get_ process id entry returns (bit (36)), 
hes $wakeup entry (bit (36), fixed bin (71), fixed (71), 4 fixed (35), 
iox_$control entry (ptr, char (*), ptr, fixed (353), ? 
eode fixed (35), 
ipe_ $decl_ev_call_chn entry (fixed (71), entry, ptr, fixed, 
fixed (35)), 
hes | $initiate_ count entry (char (#), char aoe ehar One: fixed (24), 
fixed (2), ptr, fixed neers 
be fixed (24), 
iox_$user_ output ext ptr, 
iox_$put_ chars entry (ptr, ptr, fixed (21), fixed (35)), - 
(ioa_ , com err ) entry options (variable); 
~ del 1 ipe_ info based (seg ptr), 
2 process_id bit (36), | 
2 channel id fixed bin (71); 
del seg ptr ptr; 
‘del ME char (6) init ("listen") static options (constant) ; 
del event_info ptr ptr; 
del 1 event_info based (event info ptr), 
channel_id fixed bin (77),- 
message fixed bin (71), 
sender bit (36), 
origin, 
3 dev_signal bit (18) unal, 
3 ring bit (18) unal, 
2 data ptr ptr; 


/* INITIATE PROTOCOL PASSING SEGMENT */ 
cali hes | Sinitiate count ("> udd>F 15dw>Auerbach", Nipe segi", 
, be, 1, seg ptr, code); snes 
if seg_ ptr = null () then call ERROR; 


NNN bh — 


/* CREATE EVENT CHANNEL AND MAKE IT A CALL CHANNEL #*/ 
| call ipe $create_ev_chn (ipe info.channel_id, code) ; 
if code “= 0 then call ERROR; 
ipe_info.process id = get process id_ (); 
_eall ipe $decl_ ev_ call chn Cipe_ info. channel id, ‘ 
print_msg, null (), 0, code); /#* data _ptr = null */ 
if code “= 0 then call ERROR; 


/* ALL DONE #/ 


call ioa_ ("Now ieseenide for mesedees e138 
returns; 
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ee EAR 0 EEA 0 EDEN eee 


print msg: entry (event info ptr); 
/* THIS HANDLER FOR TAKING MESSAGES DOES NOT USE THE 
event info ptr PARAMETER PASSED TO. IT. a/ 


/* GET POINTER TO MAILBOX SEGMENT ¥/ 
call hes $initiate_ count (">udd>FiSdw>Auerbach", "mailbox", 
"” “be, 1, seg ptr, code); 
if seg ptr = null () then call ERROR; 


/*® PRINT OUT CONTENTS OF >udd>F 15dw>Auerbach>mailbox #/ 
call ioa_ ("Message is:"); 
call iox _$put_ chars (iox_ $user_output, seg ptr, 
divide (be, 9, 21, 0), code); 
if code *= 0 then call " ERROR; 


/* RESTART ANY INTERRUPTED OUTPUT AND RETURN */ 
call iox_$control (iox_$user_ output, "start", null (), 
code); 


ERROR: proc; 
call com_err_ (code, ME); 
call iox_$control (iox_$user_output, "start", null (), - 
code); 4 
goto FINIS; 
end; 


FINIS: 
end listen; 


r 12:36 6.383 i8 
!print put_message.pli 1 
put_ message: proc; 


Zinclude listen decis; 
del mailbox file; 
del 1 ipe_info based (seg ptr), 
2 process id bit (36), 
2 channel_id fixed bin (71); 
del seg ptr ptrs 


/* THE FOLLOWING PL/1 I/O STATEMENTS BUILD UP A SEGMENT 
WHICH WILL BE DUMPED LATER BY THE print_msg EVENT HANDLER. */ 


open file (mailbox) stream output; 
put file (mailbox) skip 
list ("Hello...this is the absentee process.."); 
put file (mailbox) skip j 
list ("Just wanted to prove it works!!"); 
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put file (mailbox) skip; 
close file (mailbox); 


a OBTAIN process_ id AND. channel id 80 THAT WE CAN SEND WAKEUP #*/ 
_ @all heS_$initiate_count (">udd>F15dw>oAuerbach", "ipe segi", 
 .. Mt “pe, 1, seg ptr, code); | 
if seg_ ptr = null then eall ERROR; 


a NOW SEND THE WAKEUP. */ | | oe. 
.. eall hes or Cipe_ info. process_ id, ipe_info. channel _ id, 
ae 0, code 
if code = 0 then call ERROR; 


ERROR: pro: 
del ME char (it) init out nessage®) static opetons (constant) 
-. @all com _err (code, mee | 
as RINSE, 
enes 


FINISH: eo 
end = PUR message; 
r 12:36 0.020 1 
iprint pm.absin 1 

put _ message 

logout 

&quit 

rp 12:36 0. 029 1 


tdefer messages 
r 12:36 0.018 5 


_ flisten 
Now listening for messages. 
r 12:36 0.015 3 


fear pm 


2T already requested. 
r 12:36 0.126 12 
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a SE ee 


Ywho 


Multics MR8.0, load 55.0/130.0; 55 users 


Absentee users 0/3 


I0.SysDaemon 
Backup.SysDaemon 
I0.SysDaenon 
I0.SysDaemon 
I0.SysDaemon 
GCOS.SysDaemon 
Volume Dumper.Daemon. 
Opr .Operator 
MFreeman.SSF 
Susan.NCB 
Jagernauth.Multics 
Irish.Doc 

Downing .Multics 
Wardd .Multics 
Falksenj.Multics 
Coppola.HFED 
Casselman.HCRC 
Martinson.SysMaint 
Nolde.Bus=-Plan 
FED.VIS 
Lombreglia.NCB 
Lutz.GSASched 
Retriever .SysDaemon 
Harrison.Rapidata 
Stryk.HCRC 
Matheson.DEBUG 
Landrum.SED 
Baryza.FORD CONV 
Auerbach.F i5dw 
Johnson.SysAdmin 
Donner .Multics 
Faweett.VIS 
Message is: 


Hello...this is the absentee process... 


IPC SUBROUTINES 


Just wanted to prove it works!! 


Coflin.G66 
Friedman.Fi5aw 
Glicksman.HISCAN 
Berglund .Multies 
Arnwine.SiteSA 
NThompson.NOPS 
Cnouinard.BBbench 
JWilliams.SED 
Student _20.F01 
RBarnes.Multics 
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Bergum.HCRC 
Gildersleeve. Multies 
Tilton.MMPP 
' Watts.Doe 
FED.VIS — 
Sam.SRB ode 
Student 14. FO1 
Gowans.BSask 
PHJones.BBbench 
Troost .MMPP 
Whitford.Doc 
Gintell.Multics 
Grimes.SMP 
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#4 


roduced 8-40 F15D 


(End Of Topic) 


TOPIC Ix 


Interprocess Data Base Sharing 


Introduction e 7 e . i : ee - e a es e«¢ @ @ r e % e ¢ ee ¢ © e @ G=1 
The Locking Mechanisn. ee e e © e© ¢© © ee @ eo @ @ @ © &#© © © 8 @ @ Q=-2 
The set lock Subroutine ee 8e e© © e@ © © © © &© &© © ©. & © &© © © Gu 

ee e¢ @ @© @ © © &© &© @© € & o e e e® @ 9-6 
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Q-i . : Fi5D 


INTRODUCTION 


@ CONCEPT 


c= 
: iis 


ANOTHER FORM OF INTERPROCESS COMMUNICATION INVOLVES THE SHARING 


OF COMMON DATA BASE (NOT TO BE CONFUSED WITH MDBM) SEGMENTS 


BECAUSE SEVERAL PROCESSES MAY BE ATTEMPTING TO CONCURRENTLY ACCESS 


ee: a eee: DATA aes SOME FORM OF CONTROL IS REQUIRED: 


ye TO PREVENT THE DATA BASE FROM BEING LEFT IN ~ deo ne aT Rene 
ohne : 


r a PREVENT ANY PROCESS FROM OPERATING UPON PARTIALLY-UPDATED 


DATA 


POSSIBLE SOLUTION 


A "LOCKING" FACILITY: THE set_lock_ SUBROUTINE 


COOPERATING PROCESSES ~ OBSERVE A LOCKING PROTOCOL, IN WHICH A 
GIVEN PROCESS DOES NOT ACCESS A DATA BASE UNTIL IT CAN SET A 


LOCK WORD, AND IN WHICH A PROCESS RESETS THAT LOCK WORD WHEN iT | 


HAS COMPLETED A CRITICAL UPDATE OR RETRIEVAL 
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THE LOCKING MECHANISM 


@ DATA BASE LOCKING IS IMPLEMENTED BY set_lock_ SUBROUTINE (AG93) 
(BUT SEE ALSO THE PL/1 NON-STANDARD BUILTINS stac AND stacq) 


@® set lock_ PROTOCOL 


J <A CALLER-SUPPLIED LOCK WORD IS USED FOR THE MUTUAL EXCLUSION OF 
PROCESSES 


-§ THIS LOCK WORD IS 
) DECLARED (bit(36) aligned) BY UPDATING PROGRAM(S) 


J ‘ZEROED ONCE BY SOME SPECIAL INITIALIZATION PROGRAM WHEN DATABASE 
FIRST CREATED (THUS INDICATING IT'S UNLOCKED) 


1 LOCATED 


J USUALLY IN A SPECIAL, SEPARATE SEGMENT ACCESSIBLE TO ALL 
COOPERATING PROCESSES 


f SOMETIMES IN THE DATABASE ITSELF 
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WHEN A PROCEDURE IS ABOUT TO ENTER A CRITICAL SECTION OF CODE, 
IT CALLS AN ENTRY POINT IN set_lock WHICH ATTEMPTS TO SET THE 
LOCK BY PLACING THAT PROCESS'S LOCK IDENTIFIER IN THE LOCK WORD 
USING AN INDIVISIBLE MACHINE INSTRUCTION, stac (STORE-A 
CONDITIONAL) 


| stac USES A SPECIAL MAIN MEMORY REFERENCE THAT PROHIBITS SUCH 
- REFERENCES BY OTHER PROCESSES BETWEEN THE TEST AND THE DATA 
TRANSFER. 


- IF THE LOCK WORD ALREADY CONTAINS SOME OTHER VALID LOCK 


IDENTIFIER, THE INTERPRETATION IS THAT THE DATA BASE IS LOCKED 
BY THAT OTHER PROCESS, AND THE CALLING PROCESS WAITS FOR THE 
LOCK TO BE UNLOCKED BY THAT OTHER PROCESS 


WHEN A CRITICAL SECTION OF CODE HAS BEEN COMPLETED BY THE PROGRAM, 
THE LOCK OUGHT TO BE UNLOCKED, ALLOWING ANOTHER PROCESS TO SET 
THE LOCK 


@ SUCCESS HINGES ON THE FOLLOWING CONVENTIONS: 


set_ lock IS THE ONLY PROCEDURE THAT MAY MODIFY THE. LOCK WORD 
(WITH THE EXCEPTION OF THE PROGRAM WHICH INITIALIZES THE DATA 
BASE AND LOCK WORD) 


ALL PROCESSES SHOULD CALL set_lock $lock BEFORE ENTERING A CRITICAL 
SECTION OF CODE 


ALL PROCESSES SHOULD CALL set lock $unlock AFTER COMPLETING A 
CRITICAL SECTION OF CODE 
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o set_lock $lock (AG93) 


§ ATTEMPTS TO PLACE LOCK IDENTIFIER OF CALLING PROCESS IN THE GIVEN 
LOCK WORD © 


call set_lock_$lock (lock_word, wait time, code); 
f wait time INDICATES THE NUMBER OF SECONDS THAT set lock $lock 


SHOULD WAIT FOR A VALIDLY LOCKED LOCK WORD TO BE UNLOCKED 
BEFORE RETURNING UNSUCCESSFULLY (-1 INDICATES NO TIME LIMIT) 


1 ONE OF THE FOLLOWING CODES IS RETURNED: 
: 3 Pe : 2 7 | oe 

1 error_table $invalid lock reset 

f error_table_ $locked_by this process 
0 


error_table $lock wait_time exceeded 
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@ set_lock $unlock (AG93) 


| ATTEMPTS TO RESET A GIVEN LOCK WORD TO "0"b 


0 call set_lock $unlock (lock_ word, code); 
RETURNS ONE OF THE FOLLOWING CODES: 
on 
J error _table_ $lock_not_locked 


 error_table $locked by other_process IF lock word CONTAINED 
- NON-ZERO VALUE NOT EQUAL TO LOCK IDENTIFIER OF THE CALLING 
PROCESS | ee He 
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AN EXAMPLE OF LOCKING 


>user_ dir _dir>F 15dw> Auerbach . 


r 92: 9 0.173 1 


11s “pn >udd>F 15dw> Auerbach? AJAX db 


Segments = 25 Lengths = 


r w 0} “lock word: 
re 2. ~book_seat 


- MuLtisegnent-files 


se 


1, Lengths = 7, 


: © wo. 7 .flight_ records 


FP 09: 29 0.064 o- 


{print pook_ seat. pit 1 


 pook_ seat: procedure; 


/* THIS PROGRAM UPDATES | AN AIRLINES DATABASE 
- WHICH IS LOCATED IN THE SAME DIRECTORY | 
AS THIS PROGRAM, vs ALSO CONTAINS 


A LOCK SEGMENT */ 


del flight records file: Mi? 
del 1 flight_rec based (rec ptr), 
: 2 total_ Seats fixed bin, . 
2 seats booked fixed bin, 
2 seat_info (0 refer (seats | booked)), 
3 name char (20) varying, | 
‘ 3 address char (30) varying; 
del flight no char (4) varying,: 
date char (6). varying; 


del rec ptr ptr; 


del set_ lock _ $lock entry (bit G6) aligned, 
fixed bin, fixed bin (35)), 


set_lock_ $unlock entry (bit (36) aligned, 
.fixed bin (35)), 
(ioa_, com_err_) entry options (variable), 
change wdir_ es (char (168) aligned, fixed bin (35095 


ment 
‘del lock_ wor 6) Sit” (36) avignea external static; 


del (key, cleanup) condition; | 


‘del (code, 


error_table | $invalid lock reset seeetial: 
error table $locked by this process external, 


error_ ~ table _Slock_ wait_ time_ exceeded external) fixed bin G5); 


“del ME char (9) init ("book seat") static options (constant) ; 


Not To Be Reproduced 


9-6 


F15D 


/* 


/* 


/* 


/* 


/* 


/* 
/* 


/* 


/* 


=z 
o 
c 
=} 
fo) 

iv i] 
wm 
3! 
@ 
com 
“t 
6) 
Ch 
€ 
Q 
rit) 
o 
Oo 


AN EXAMPLE OF LOCKING 


ESTABLISH ‘on unit' FOR ‘cleanup’ 
DO NOT UNLOCK LOCK —- DATA BASE MAY BE 
IN AN INCONSISTENT STATE */ 
on cleanup close file (flight_records) ; 


ESTABLISH ‘on unit' FOR 'key' CONDITION 
REPORT ERROR AND ASK AGAIN #/ 
on key (flight records) begin; . 
¢@all ioa ("Invalid key entered “a", onkey ()):. 
zoto PROMPT; 


Bv vv & sbwees 


end; 


BEGIN UPDATE PROGRAM #/ 
call ioa_ ("AJAX Airlines flight booking program begins"); 


CHANGE WORKING DIR TO AIRLINES DATABASE DIRECTORY */ 
call change wdir_ (">udd>F15dw>Auerbach>AJAX_db", code); 
if code “= 0 then do; 
call com_err_ (code, ME); 
return; 
end; 


OPEN DATABASE #/ 
open file (flight_ eeenee direct update; 


LOCK DATABASE NOW = TRY FOR 30 SECONDS */ 
_eall set_lock_$lock (lock_word$, 30, code); 


if code “s 0 then 
COULDN'T LOCK IT = FIND OUT WHY */ 


if code = error table $iock wait time_exceeded 
then de; 
DATABASE IS BUSY *#/ 
call ioa ("Database busy - os again later."); 
goto WRAPUP; 
end; 
else . : 
if ois = error table $invalid_lock_reset 
then do; 
SOMEBODY DIDN'T UNLOCK BEFORE DYING */ 
call ioa_ ("Database has invalid ‘loek"); 
call ioa ("Notify DBA = no update allowed"); 
goto WRAPUP; 
end; 
else 


if code = error_table $locked_by this process then do; 


=7 = F15D 
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/* SOMETHING IS VERY WRONG - DIE #/ 
call ioa_ ("FATAL ERROR!!"); 
call ioa ("NOTIFY DBA IMMEDIATELY!!"); 
goto WRAPUP; 
end; 
else; 
else; 


/* DATABASE IS NOW LOCKED */ 


PROMPT: 
/* BASIC REQUEST LOOP */ 


do while ("i"b); 
call ioa ("Enter flight_no, date for booking"); 
get list (flight no, date); 
if flight no = "0" then goto WRAPUP; 
/* STOP WHEN flight no IS "0" #/ 
/* TRY TO READ RECORD #/ 
read file (flight_records) key (flight, no}{ |date) 
set (rec ptr); 


/* SEE IF ANY SEATS ARE LEFT #/ 
if rec ptr => seats booked >= rec_ptr -> total_ seats 
then do; 
call ioa_ ("Flight is booked full."); 
end; 


/* OKAY - GET REST OF INFO #/ 
else do; 
_ seats booked = seats booked + 1; 
call Ioa ("Enter name, address of cust"); 
get list ( | 
flight rec.seat info (seats | booked) .name, 
flight rec.seat info (seats booked) .address) ; 
rewrite file (flight records) 
from (rec_ptr -> flight rec); 
end: 
end; 


WRAPUP: 

/* UNLOCK AND CLOSE DATABASE */ 
call set lock $unlock (lock _word$, code); 
close file (flight_records); 
call ioa_ ("End Update Program “a, ME); 


end book_seat; 


Not To Be Reproduced 9-8 . | Fi5D 


AN EXAMPLE OF LOCKING 


r 09:29 0.025 2 


!AJAX_db>book seat 

AJAX Airlines flight booking program begins 
Enter flight no, date for booking 

1112 ,800303 

“Flight is booked full. 

Enter flight_no, date for booking 
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INTRODUCTION 


@ CERTAIN SOPHISTICATED PROGRAMS MAY REQUIRE THE USE OF ONE OR MORE 
CPU AND/OR REAL-TIME TIMERS 


@ TIMER MANAGER FACILITY (TMF) OPERATES PRIMARILY IN CONJUNCTION WITH 
THE INTERPROCESS COMMUNICATION FACILITY, THUS ENABLING PROGRAMS TO 
RUN ASYNCHRONOUSLY WITHIN A PROCESS 


TIMER _ MANAGER 


@ -Mattics ALLOWS A PROCESS TO: 
f BLOCK ITSELF FOR A SPECIFIED REAL TIME PERIOD (SLEEP) 


0 CALL A SPECIFIED PROCEDURE WHEN A SPECIFIED TIME INTERVAL HAS 
ELAPSED 


ISSUE A WAKEUP ON A SPECIFIED EVENT-WAIT CHANNEL WHEN A SPECIFIED 
TIME INTERVAL HAS ELAPSED 


@ THE SUBROUTINE INTERFACE IS timer_manager_ (AK93) 


@ FOR MORE ABOUT TIME, SEE THE MPM SUBROUTINES MANUAL: 


clock_ epu_time_and _paging_ date time_ 
gecode_ clock_ value_ virtual cpu_time_ 
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 @ timer_manager__ MAKES USE OF SEVERAL. CRITICAL CONCEPTS: 


d alarm 
-f§ alarm" IS USED TO DESIGNATE A REAL-TIME TIMER; THAT IS, A 
"WALL-TIME" ELAPSED TIME = WHEN AN "alarm" TIMER GOES. OFF, 
THE "alrm" (STATIC) CONDITION IS SIGNALLED 2 


f epu 


} "cpu" IS USED TO DESIGNATE A VIRTUAL CPU TIMER; WHEN A "cpu" 
TIMER GOES OFF, THE "eput" (STATIC) CONDITION IS SIGNALLED 


q relative time 


f A TIME MEASURED FROM THE CALL TO timer _ manager THAT IS, A 
TIME MEASURED FROM THE TIME THE TIMER Is CREATED” 


1 absolute time ~ 


f aA TIME MEASURED ” FROM THE ‘FIXED POINT IN TIME " January +, 1901 
0000 Hours" — 
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TIMER MANAGER GENERIC ARGUMENTS 


@ timer_manager_ ENTRY POINTS ACCEPT A COMMON SET OF GENERIC ARGUMENTS 


2 channel 


1 THE EVENT CHANNEL ID (fixed bin(71)) OVER WHICH A WAKEUP IS 
TO BE TRANSMITTED 


0 SET UP PRIOR TO INVOCATION OF A timer_manager_ ENTRY POINT 


1 routine 


02 THE PROCEDURE TO BE INVOKED WHEN A "CALL" TIMER GOES OFF 
(SPECIFIED WHEN THE TIMER IS CREATED) 


fj .THE PROCEDURE WILL BE PASSED TWO ARGUMENTS (UNLIKE AN EVENT-CALL 
PROCEDURE) AS FOLLOWS: © 


§ me_ptr | a 
f AN ALIGNED POINTER TO THE "MACHINE CONDITIONS" AT- THE. 
~ TIME THE alrm OR cput CONDITION WAS SIGNALLED (SEE SECTION 
7 IN MPM REFERENCE GUIDE) 
1 name 


0D A CHARACTER STRING INDICATING WHETHER THE TIMER WAS AN 
ALARM TIMER (alrm) OR A CPU TIMER (cput) ; : 


) IS MOST OFTEN AN EXTERNAL ENTRY, BUT MIGHT BE INTERNAL (TAKE 
CARE!) © 


om 
om 
aye 
o 
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TIMER MANAGER GENERIC ARGUMENTS 


) MANY timer manager ENTRY POINTS REQUIRE THAT THE TIME (fixed 
bin (71)) BE SPECIFIED; alrm OR eput CONDITION IS SIGNALLED 
AT THAT TIME 


) flags 


l MANY timer _ manager_ ENTRY POINTS REQUIRE THIS bit(2) STRING, 
WHICH SPECIFIES HOW THE time ARGUMENT IS TO BE INTERPRETED 


"11> MEANS RELATIVE SECONDS 
"10"b MEANS RELATIVE MICROSECONDS (1e-6 SECONDS) 
"O1"b MEANS ABSOLUTE SECONDS 
"OO"b MEANS ABSOLUTE MICROSECONDS (1e-6 SECONDS) 
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TIMER MANAGER ENTRY POINTS 


@® timer_manager ENTRY POINTS ALLOW A PROCESS TO: 


[ BLOCK A PROCESS FOR A SPECIFIED REAL TIME INTERVAL 


] timer_manager_$sleep 


1 CAUSE.A SPECIFIED PROCEDURE TO BE INVOKED AT A SPECIFIED TIME 
timer_manager_$alarm call 


q timer_manager_$cpu_call 


0 CAUSE A WAKEUP TO BE ISSUED ON A SPECIFIED EVENT-WAIT CHANNEL AT 
A SPECIFIED TIME 


] timer_manager_$alarm_wakeup 


l timer_manager_$cpu_wakeup 
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- TIMER MANAGER ENTRY POINTS 


RESET AND INHIBIT TIMERS 
4 Sincrieabager sararnceait: tanistt 
Sg ewe sander: Seaoet stare oui" 
"p) timer_manager_sreset_elara_waieup 
D timer_nanager_s cpu_call,_inhiost - 
1 timer_manager_$reset_cpu_call = 


Ss timer_manager_$reset_cpu_wakeup ; 
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TIMER MANAGER ENTRY POINTS 
BLOCKING A PROCESS 


@ timer manager $sleep CAUSES EDCESS TO GO BLOCKED FOR A PERIOD OF 


REAL TIME 


) OTHER TIMERS THAT ARE ACTIVE ARE PROCESSED WHENEVER THEY GO OFF 


HOWEVER, THE PROCEDURE ISSUING THIS CALL WILL NOT RESUME (I Eo, 
EXECUTE ITS NEXT INSTRUCTION) UNTIL THE REAL TIME HAS BEEN PASSED 


) EXAMPLE 
----SECONDS 


eall timer_manager_$sleep (30, "11"b); 
t 
‘ 


Q 
RELATIVE---- 


_ ae 1 WOULD CAUSE THIS PROCESS TO GO TO "SLEEP" FOR THIRTY SECONDS 


F15D 
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TIMER MANAGER ENTRY POINTS 
USING CALL TIMERS 


@ ENTRY POINTS WHICH CAUSE A SPECIFIED PROCEDURE TO BE INVOKED WHEN A 
TIMER GOES OFF 


timer_manager_$alarn_call 
1 SETS UP A REAL-TIMER 
1 A SPECIFIED ROUTINE IS CALLED WHEN THE TIMER GOES OFF 
i 11 REQUIRES THE time, flags, AND routine ARGUMENTS AS INPUT 
] EXAMPLE 


-eall timer_manager_$alarm_call ( 80, "11"b, print_usage);. 


— WOULD CAUSE A PROCEDURE CALLED print usage TO BE INVOKED 
AFTER 80 SECONDS OF REAL TIME HAD ELAPSED 
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TIMER MANAGER ENTRY POINTS 
USING CALL TIMERS 


0 timer_manager_$cpu_call 


0 SETS UP A CPU TIMER WHICH WILL CAUSE A SPECIFIED PROCEDURE TO 
BE INVOKED WHEN A SPECIFIED INTERVAL OF CPU TIME HAS ELAPSED 


§ REQUIRES THE SAME ARGUMENTS AS THE timer_manager_ $alarm_call 
ENTRY POINT 
). EXAMPLE 


waomMITCROSECONDS 
i] 


¥ 
call timer_manager $cpu_call ( 1000, "10"b, print_cpu_usage) ; 


aoa od 


RELATIVE=-<< 


I CAUSES THE PROGRAM print cpu_usage TO BE INVOKED WHEN ONE 
MILLISECOND OF CPU TIME HAS ELAPSED “3 
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TIMER MANAGER ENTRY POINTS 
USING WAKEUP TIMERS 


@® ENTRY POINTS BELOW ALLOW THE CALLER TO SPECIFY THAT A WAKEUP IS TO_ 
BE SENT ACROSS SPECIFIED EVENT-WAIT CHANNELS WHEN THE TIMER GOES 
OFF 


) timer_manager_$alarm_wakeup 


J SETS UP A REAL-TIME TIMER THAT ISSUES A WAKEUP ON THE EVENT-WAIT 
CHANNEL SPECIFIED WHEN THE TIMER GOES OFF 


1 CALLER MAY Wisk “ GO BLOCKED ON THE Saiaiee (BUT NEEDN'T) 

1 THE EVENT MESSAGE PASSED IS THE STRING "alarm" 

1 REQUIRES THREE INPUT ARGUMENTS - THE time, flags, AND channel_id 
0) EXAMPLE. : 


call convert date to _binary_ ("7 hour 5 minutes", time, code); 
-~ call timer _panager_ $alarm | wakeup ( time, "OO", channel ts 


ABSOLUTE---- 


mo-=-MICROSECONDS 


| WOULD CAUSE A WAKEUP TO BE ISSUED ACROSS channel id 65 
WALL CLOCK MINUTES FROM THE TIME convert _ date_to Epenar 
WAS CALLED | 
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TIMER MANAGER ENTRY POINTS 
USING WAKEUP TIMERS 


f timer_manager $cpu_wakeup 


OPERATES EXACTLY LIKE timer manager $alarm wakeup EXCEPT THAT 
THE TIMER IS A CPU TIMER AND THE EVENT MESSAGE IS “cpu time" 


EXAMPLE 


call timer. manager _$cpu_wakeup (50, "01"b, channel_ id); 
; a8 

4 

g 


ABSOLUTE--- 


~---SECONDS 


\ 
-J WOULD CAUSE A WAKEUP TO BE ISSUED ON THE EVENT-WAIT CHANNEL 
IDENTIFIED BY channel id AFTER A TOTAL OF 50 CPU SECONDS 
HAD BEEN EXPENDED (MEASURED FROM PROCESS CREATION TIME) 


Not To Be Reproduced 10-11 S. -. .  F5D 


TIMER MANAGER ENTRY POINTS 
RESETTING AND INHIBITING TIMERS 


@® timer manager ENTRY POINTS EXIST WHICH ALLOW A PROCESS TO RESET OR 
INHIBIT TIMERS 


@ USERS OF timer_manager_ SHOULD BE AWARE OF THE PERILS OF ASYNCHRONOUS 
- PROCESSING, AND PROGRAMS CREATING CALL OR WAKEUP TIMERS SHOULD PROVIDE 
AN 'on unit? FOR THE cleanup CONDITION TO RESET TIMERS 


2 SUCH ‘on units' GENERALLY DO NOTHING MORE THAN RESET THE TIMERS, 
THUS PREVENTING SUCH TIMERS FROM GOING OFF AT UNDESIRED TIMES 


f ENTRY POINTS WHICH RESET AND INHIBIT TIMERS: | 


) timer_manager_ $reset_alarm_call 


0. RESETS, OR TURNS OFF ALL REAL-TIME TIMERS (alarm) THAT 
CALL THE ROUTINE SPECIFIED WHEN THEY GO OFF 


REQUIRES ONLY ONE ARGUMENT, THE NAME OF THE SOURSHe FOR 
WHICH TIMERS HAVE BEEN SET 
) EXAMPLE 


call timer_manager $reset_alarm_call (print_usage); 


i THIS CALL WOULD TURN OFF ANY REAL-TIME TIMERS WHICH 
WOULD CALL print_usage IF THEY WENT OFF 
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TIMER MANAGER ENTRY POINTS 
RESETTING AND INHIBITING TIMERS 


f timer _manager_$reset_cepu_call 
J OPERATES IN THE SAME MANNER AS 


timer manager $reset alarm call EXCEPT THAT IT TURNS OFF 
CPU TIMERS FOR THE SPECIFIED PROCEDURE 


Y timer_manager_$reset_alarm_wakeup 


2 TURNS OFF ALL REAL-TIME TIMERS THAT ISSUE A WAKEUP ON THE 
_ EVENT-WAIT CHANNEL SPECIFIED : 


J THE ONLY INPUT ARGUMENT IS THE channel id OF THE CHANNEL 
- FOR WHICH TIMER WAKEUPS ARE TO BE TURNED OFF 


f EXAMPLE 


call timer_manager_$reset_alarm_wakeup (channel_id); 


7 THIS CALL WOULD TURN OFF ANY REAL-TIME TIMERS WHICH 
WOULD OTHERWISE ISSUE A WAKEUP ON THE CHANNEL IDENTIFIED 
BY channel_id WHEN THEY WENT OFF 


Q timer _manager_$reset_cpu_wakeup 


0 OPERATES EXACTLY LIKE timer manager $reset_alarm wakeup 
EXCEPT THAT IT TURNS OFF CPU TIMERS FOR THE EVENT-WAIT 
CHANNEL SPECIFIED _ , 
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TIMER MANAGER ENTRY POINTS 
RESETTING AND INHIBITING TIMERS 


J INHIBITING INTERRUPTS WHILE USING CALL TIMERS ALLOWS THE PROCESS 
TO ENSURE THAT THE HANDLER (THE PROCEDURE INVOKED) WILL NOT BE 
INTERRUPTED BEFORE IT RETURNS 


) IF SUCH HANDLERS DO NOT RETURN, THE PROCESS MAY MALFUNCTION, 
SINCE IT IS DANGEROUS TO INHIBIT INTERRUPTS FOR TOO LONG 
J timer_manager_$alarm_call_ inhibit 
) OPERATES EXACTLY LIKE timer_manager_$alarm_call EXCEPT THAT 
ALL INTERRUPTS ARE INHIBITED JUST BEFORE THE HANDLER IS 
INVOKED 


2 WHEN THE HANDLER RETURNS, ALL INTERRUPTS ARE REENABLED 
q timer_manager_$cpu_call_inhibit 


(9 OPERATES LIKE timer_manager_$cpu_call EXCEPT THAT ALL 
INTERRUPTS ARE INHIBITED WHILE-THE HANDLER IS EXECUTING 
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TIMER MANAGER ENTRY POINTS 
STANDARD SYSTEM HANDLERS 


@® OTHER ENTRY POINTS IN timer_manager_ SERVE AS STATIC HANDLERS FOR 
TWO CONDITIONS: 


| timer_manager_$cpu_time interrupt (FOR teput' CONDITION) 


) timer_manager_$alarm_interrupt (FOR ‘alrm' CONDITION) 


@ SEE THE CODE FOR user_real_init_admin_ IN APPENDIX B 
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TWO EXAMPLES USING TIMERS 


!print cookie.pli 1 


cookie: proc; — 
/* THE INFAMOUS COOKIE MONSTER PROGRAM 
THIS PROGRAM USES THE TIMER MANAGER FACILITY 
_ TO CAUSE THE COOKIE MONSTER PROGRAM TO BE 
-REINVOKED AGAIN AND AGAIN, THUS BEWILDERING 
THE CALLER */ 


“del timer_manager_$alarm_call entry(fixed bin (71), bit (2), entry), 


timer _ _manager_ ~$reset_ alarm_call entry (entry), 


iox $control entry (ptr, char (#*), ptr, figsd bin (35)), 


(ioa_, ioa_$nnl) entry options (variable); 


del (quit, cleanup) condition; 

del next time fixed bin (T1)3 

del null builtin; 

del iox $user_io ext ptr; 

del answer char (6); 

del sysin file; 

del code fixed bin (35) 5 

del i static init (1); 

del first_time bit 44) Static init (™4%b); 


/* ESTABLISH 'on unit! FOR CLEANUP 
' RESET ANY TIMERS THAT MAY BE AROUND */ 


on cleanup call timer_manager_$reset_alarm_call (handler); 


! 


/* COME oe IF FIRST TIME EXECUTING COOKIE #/ 


2£wnw ae - ae 


first time then do; 
/® FOR INITIAL CALL, SET TIME TO 10 SECONDS #/ 
next time = 10; 
first time = "0"b; 
end; 
_ /*® WHEN COOKIE IS CALLED AGAIN, 
SET THE TIME TO 80 SECONDS *#/ 
else next_time = 80; 


/* NOW SET UP TIMER TO CALL handler AND RETURN 
IT WILL SEEM TO THE CALLER THAT ALL IS NORMAL */ 


call timer_manager $alarm_call (next_time, "11"b, handler); 


returns; 
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TWO EXAMPLES USING TIMERS 


/*® COME HERE WHEN TIMER GOES OFF */ 
handler: entry; 
/® ESTABLISH ‘on unit' TO TRAP HIS QUITS #/ 
on quit begin; 
call ioa_ ("QUIT"); 
riper ("You wanna get yourself logged out??"); 
s ivi: 
go to ask_again; 
end; 


/* BASIC PROMPTING LOOP 
WE READ INPUT LOOKING FOR COOKIES #/ 
ask_again: 
if ie 1 the 
else if is 
else if i 


n call ioa_ ("I want a cookie."); 
2 then call ioa ("Please give me a cookie."); 
3 then call ioa_ 
d better give me a cookie."); 
. else if i = 4 then call ioa_ ("I WANT A COOKIE!"); 
else if i = 5 then call ioa ( 
"PLEASE=-GIMME A COOKIE!!!!"); 
else do; 
eall ioa_ ("TI give up. You're hopeless."); 
call ioa $nnl ("Guess I'll have to get one myself."); 
eall ioa_ (*"COOKIECOOKIECOOKIE") ; 


/* AT THIS POINT I EITHER GOT A COOKIE FROM HIM 
OR FROM MYSELF - RESET i AND CALL COOKIE AGAIN */ 
next_set: 
i= 1; 


call cookie; 
call iox _$control (iox_$user_io, "start", null, code); 
return; 

end: 


/*® HERE'S WHERE I GRAB HIS INPUT LINES #/ 
get list (answer); 
if answer = “cookie* j{ answer = "COOKIE" then do; 
call ioa_ ("Thanks. I needed that. YumYumYum..."); 
go to next set; 


go to ask_again; 
end; 
end: 
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TWO EXAMPLES USING TIMERS 


§'cookie 
r 11:56 0.065 1 


'hmu 


Multics MR8.0, load 63.0/100.0; 63 users 
Absentee users 0/5 


r 11:56 0.058 0 


I want a cookie. 

twho 

Please give me a cookie. 
!(QUIT) | 


QUIT 

You wanna get yourself logged out?? 
You had better give me a cookie. 
fnew proc . 
PLEASE--GIMME A COOKIE!!!! 

! logout 

I give up. You're hopeless. 


Guess I'll have to get one myself.COOKIECOOKIECOOKIE 


!new_proc 
r 113 57 \. 829 68 
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TWO EXAMPLES USING TIMERS 


tprint usage.pli 1 
usage: proc (mec_ptr, name); 


/* THIS PROGRAM PRINTS OUT PAGE FAULT AND PAGING DEVICE 
FAULT INFORMATION EVERY HALF-SECOND OF CPU TIME */ 


del (me_ptr ptr, 
name char (*)) parameter ; 


~ del timer_manager_$cpu_call entry (fixed bin (71), bit (2), entry), 
——? timer_manager_$reset_cpu_call entry (entry), 

cpu_time_and_ paging entry (fixed bin, fixed bin (71), 

fixed bin), 

iox_$control entry (ptr, char (#), ptr, fixed bin (35)), 

ioa_ entry options (variable); 


del cleanup condition, 
code fixed bin (35), 
iox_$user_io external ptr; 


del (total_pf fixed bin, 
total, _pdf fixed bin, 
first time bit mv init ("1"b)) static; 


del pf fixed bin, 
time fixed bin (71), 
pdf fixed bin; 


/* ESTABLISH cleanup HANDLER TO RESET TIMER */ 
on cleanup call timer_manager_$reset_cpu_call (usage); 


/* PERFORM INITIALIZATION IF FIRST TIME */ 
if first time then do; 
eall cpu_time and paging (total_pf, time, total_pdf); 
call ioa_ ("Usage counters initialized"); 
eall ioa_ ("Total page faults since process began “i", 
total pf); 
call ioa ("Total pd faults since process began “i", 
total pdf); 
first time = HOD. 
end; 


/* COMES HERE WHEN TIMER GOES OFF #/ 
else do; 
_—yeall cpu_time_and_paging (pf, time, pdf); 
i call ioa_ ("In the half-Second CPU interval:"); 

cali ioa_ ("*i page faults were taken", 
pf = total pf); 

call ioa_ ("*i paging device faults were taken", 
pdf = total _ pdt}; 

total pf = pf; 
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TWO EXAMPLES USING TIMERS 


total _pdf = pdf; 
call iox_$control (iox_$user_io, "start", 
‘null (), code); 
end; 


/* FIRE UP NEXT TIMER IN EITHER CASE #/ 
— > eall timer_manager_$cepu_call (500000, "10"b, usage); 


end usage; 
fusage 
Usage counters initialized 
Total page faults since process began 703 
Total pd faults since process. began 0 
r 12:19 0.083 4 


thmu > 


Multics MR8.0, load 63. 0/100.0; 63 users = 
Absentee users, 1/5 


r 12:19 0.055 7 


tlist -first 2 
Segments = 62, Lengths = i127. 


re 1 usage 
row 1 usage.pli 


r 12:19 0.201 21 


!cookie 
r 12:19 0.052 1 


! pwd 
>udd>F 15dw>Auerbach 
r 12:19 0.035 0 


I want a cookie. 

!eookie 

Thanks. I needed that. YumYumYum... 
!whome 

In the half-second CPU interval: 

55 page faults were taken 

QO paging device faults were taken 
Auerbach.F15dw 


r 12:19 0.310 30 
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TWO EXAMPLES USING TIMERS 


!pl1 cookie 

PL/I 

In the half-second CPU interval: 
60 page faults were taken 

O paging device faults were taken 
In the half-second CPU interval: 
41 page faults were taken 

0 paging device faults were taken 
In the half-second CPU interval: 
63 page faults were taken 

0 paging device faults were taken 
r 12:20 1.876 163 
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TIMER MANAGER SUMMARY 


FOR REAL-TIME TIMERS 


sleep GO BLOCKED AT THIS POINT FOR SPECIFIED 
; TIME 
alarm call CALL SPECIFIED ROUTINE AT SPECIFIED TIME 


alarm_call_inhibit CALL SPECIFIED ROUTINE AT SPECIFIED TIME 
WITH ALL INTERPROCESS SIGNALS MASKED OFF 


alarm_wakeup ISSUE A WAKEUP ON SPECIFIED EVENT-WAIT 
| CHANNEL WHEN TIMER GOES OFF, PASSING A 
MESSAGE OF "alarm" 


reset_alarm_call TURN OFF ALL TIMERS THAT CALL ROUTINE 
SPECIFIED WHEN MATURE 


reset_alarm wakeup TURN OFF ‘ALL TIMERS THAT WAKEUP SPECIFIED 
EVENT-WAIT CHANNEL WHEN THEY MATURE 


FOR CPU-TIME TIMERS | | 
cpu_call ‘CALL SPECIFIED ROUTINE AT SPECIFIED TIME 


cpu_call_inhibit | CALL SPECIFIED ROUTINE AT SPECIFIED TIME 
| WITH ALL INTERPROCESS SIGNALS MASKED OFF 


cpu_wakeup | ISSUE A WAKEUP ON SPECIFIED EVENT-WAIT 
: CHANNEL WHEN TIMER GOES OFF, PASSING 
A MESSAGE OF "cpu_time" 


reset _cpu call TURN OFF ALL TIMERS THAT CALL ROUTINE 
SPECIFIED WHEN THEY MATURE 


reset_cpu_wakeup TURN OFF ALL TIMERS THAT WAKEUP SPECIFIED = 
: EVENT-WAIT CHANNEL WHEN THEY MATURE . re 


YOU ARE NOW READY FOR WORKSHOP 
#5 
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THE PROCESS STACK SEGMENT 


@ jEXECUTION IN A STANDARD Multies PROCESS USES A STACK SEGMENT 


4a THERE IS ONE STACK SEGMENT PER RING WITH ENTRYNAME 'stack_n' 
peene 'n' hex THE | RING OF EEECULION 


(| EACH STACK CONTAINS A STACK "HEADER" FOLLOWED BY AS MANY STACK 
"FRAMES" AS ARE REQUIRED BY THE PROCESS 


|. THE STACK DYNAMICALLY EXPANDS AND SHRINKS AS INDIVIDUAL FRAMES 
. ARE "PUSHED" ONTO THE STACK (BY AN INVOKED PROCEDURE) AND SEOPEED! 
Ore =e ‘STACK (BY A. RETURNING PROCEDURE) 


ee STACK 4 


sal 


' 644 


512 


“Frame size is variable, but not less than 32 words 
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THE PROCESS STACK SEGMENT 
THE STACK HEADER 


@ MOSTLY CONTAINS POINTERS TO SPECIAL CODE (STANDARD CALL, PUSH, AND 
RETURN OPERATORS) AND SPECIAL DATA BASES (LINKAGE OFFSET TABLE, 
REFERENCE NAME TABLE, ETC) WHICH ARE REQUIRED FOR THE NORMAL EXECUTION 
OF A PROCESS IN THE CORRESPONDING RING 


del 1 stack_header ‘based (sb) aligned, 
2 padi (4) | | fixed b 
2 old lot ptr ptr, rs "OBSOLETE */ 
2 commie yer ptr, /* POINTS TO AREA CONTAINING 
_ SEPARATE STATIC #/ 
2celr _ptr | ptr, /* AREA PTR FOR PE REAGE SECTION ALLOCATION &/ 
2 max_lot_size fixed bin(17) unal, 
2 main |_proe invoked fixed bin(11) unal, 
~2 run_unit_depth fixed bin(5) unal, 
2 cur lot size fixed bin(17) unal, /* IN WORDS */ 
2 sjaGen <tee ptr ptr, /# USUALLY POINTS TO SYSTEM FREE STORAGE 
2 user_free ptr ptr, /* USUALLY POINTS TO : 2 
. | <unique>.area.linker{0 #/ 
2 null_ptr — ptr, /* THERE IS NO STACK FRAME 
PREVIOUS TO THE HEADER #/ 
2 stack begin _ptr ptr, 
2 stack_ end _ptr ptr, /* POINTS TO NEXT USEABLE 
| STACK FRAME */ 
2 Tet _ptr _ ptr, /* INITIALLY POINTS TO BASE OF STACK a/ 
2 signal_ptr ptr, /* POINTS TO SIGNALLING PROC FOR 
| | THIS RING *#/ 
2 bar_mode_ sp ptr, /* NEEDED BECAUSE BAR MODE PROGS CAN 
| . CHANGE THE STACK FRAME PTR REGISTER 
(PR6) */ 


pli_operators ptr ptr, /* POINTS TO pli operators _ 


2 

$operator table #/ 
2 call_op_ptr ptr, /#* POINTS TO ALM CALL OPERATOR #/ 
2 push_op ptr ptr, /* POINTS TO ALM PUSH OPERATOR 3 / . 
2 return_op ptr ptr, /® POINTS TO STANDARD RETURN ALM OPERATOR #®/ 
2 


return_ no_pop_op_ ptr ptr, /* POINTS TO SHORT RETURN-ALM OPERATOR */ 


-~ 
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THE PROCESS STACK SEGMENT 


THE STACK HEADER 


2 entry_op ptr ptr, /# 
2 trans_ op _tv_ptr ptr, /# 
2 isot _ ptr ptr, 

2 set. ptr ptr, /* 
2 unwinder_ptr ptr, /# 
2 sys_link_info_ptr ptr, /#* 
2 rnt_ptr ptr, /* 
2 ect ptr — ptr, /* 
2 assign linkage_ ptr ptr, /* 
2 pad3 (8) | bit (36); 

@® NOTE: 


POINTS TO ALM ENTRY OPERATOR */ 
POINTS TO A VECTOR OF SPECIAL 
LANGUAGE OPERATORS */ 


POINTS TO SYSTEM CONDITION 
TABLE (SCT) */ 

POINTS TO UNWINDER PROCEDURE 
FOR THIS RING #/ 


POINTS TO *system LINK NAME 
TABLE */ 
POINTS TO REFERENCE NAME TABLE */ 
OBSOLETE */ 
OBSOLETE */ 

/* FOR FUTURE EXPANSION #/ 


set_system_storage SETS stack_header.system_free ptr 


set_user_storage SETS stack_header.user_free_ptr 


WHEN THE NUMBER OF INITIATED SEGMENTS EXCEEDS 312, THE 
lot AND isot ARE COPIED TO SYSTEM FREE STORAGE . 
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THE PROCESS STACK SEGMENT 
THE STACK FRAME 


@ STACK FRAMES ARE VARIABLE LENGTH, AND CONTAIN BOTH CONTROL INFORMATION 
AND DATA FOR ACTIVE PROCEDURES 


@ IN GENERAL, 


A 
TO WHICH IT BELONGS (ITS 


STACK FRAME IS ALLOCATED EXPLICITLY BY THE PROCEDURE 
OWNER) WHEN THAT PROCEDURE IS INVOKED 


@ STACK FRAMES ARE THREADED TO EACH OTHER WITH FORWARD AND BACKWARD 
POINTERS, MAKING IT EASY TO TRACE THE PROCESS HISTORY 
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THE PROCESS STACK SEGMENT 
THE STACK FRAME 


del 1 stack frame based(sp) aligned, 


pointer _registers(0 : 7) ptr, /#* FOR ALM CALL PSEUDO-OP */ 
prev_sp pointer, 
next _sp pointer, /* IF EQUAL TO stack end ptr, POINTS TO 
- NEXT AVAILABLE STACK FRAME LOCATION */ 
return_ptr pointer, /* TELLS US WHERE TO RESUME EXECUTION */ 
entry ptr pointer, /* POINTS TO THIS PROCEDURE'S ENTRY 
POINT */ 
operator_and_ lp ptr ptr, /* POINTS TO OPERATOR SEGMENT BEING 
USED BY THIS PROCEDURE OR, 
IF ALM PROCEDURE, POINTS TO 
} LINKAGE SECTION t/ 
arg ptr pointer, /* POINTS TO arg list TO BE USED BY THIS 
PROCEDURE */ 
static ptr ptr unaligned, /* POINTS TO INTERNAL STATIC 
~ REGION */ 
fio ps ptr ptr unal, /* FOR FORTRAN I/O */ 
on_ unit. _relpt bit(18) uperrsess /* POINTS TO A LIST OF 
ENABLED CONDITIONS 
(RELATIVE TO STACK 
. FRAME BASE) #/ 
2 on_unit_relp2 bit(18) unaligned, /* OBSOLETE #/. 
2 translator _id bit(18) unaligned, /* A CODED NUMBER INDICATING 
WHAT GENERATED THE OBJECT */ 
2 operator_return_offset bit(18) unaligned, /* USED BY SOME 
: pl1_operators_ 
FUNCTIONS; IF 0, 
THEN A DEDICATED 
REGISTER CONTAINS 
RETURN LOCATION #/ 


MMP WM 


x(O: 7) bit(18) unaligned, 


} 
a bit(36), / } USED TO SAVE REGS WHEN AND IF THIS 
q bit(36), } PROCEDURE DOES AN ALM cate 
e bit(36), } 


timer bit(27) unaligned, 
pad bit(6) unaligned, 
ring_alarm_ reg bit(3) unaligned; 


NM MN MM NM 


/* AUTOMATIC VARIABLES #*/ 
/* THREADED LIST OF ON UNITS */ 
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THE PROCESS STACK SEGMENT 
THE STACK FRAME 


del 1 on_unit based aligned, 


2 name ptr, /*# ptr to the condition name */ 

2 body ptr, /* ptr to proc to handle condition *®/ 

2 size fixed bin, /* length of the condition name */ 

2-next bit (18) unaligned, /* rel ptr to next on unit#®/ 

2 flags unaligned, | 
3 pli_snap bit (1) unaligned, /* if "1"b then call snap proc */ 
3 pli1_ bit (1) unaligned, /* "1%b indicates to use 


system condition handler */ 
3 pad bit (16) unaligned, 
2 file ptr; /* ptr to file descriptor for pli I/0 
: condition */ 


Cx) 
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ARGUMENT LIST FORMAT 


@ AN OBJECT SEGMENT CREATES AN ARGUMENT LIST BEFORE INVOKING ANOTHER 
PROCEDURE 7 


9 ARGUMENT LISTS CONFORM TO STANDARD FORMAT 
i ARGUMENT LISTS DO NOT CONTAIN THE ARGUMENTS THEMSELVES 


2 SPECIFICALLY, THE ARGUMENT LIST CONTAINS 
f A TWO WORD HEADER 
1 AN ARRAY OF ARG POINTERS 
f -AN OPTIONAL POINTER TO STACK FRAME OF CONTAINING sbeei 


f AN OPTIONAL ARRAY OF POINTERS TO ARGUMENT DESCRIPTORS 
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ARGUMENT LIST FORMAT 


STANDARD ARGUMENT LIST 


ARGUMENTCOUNT=n | CODE —__ 
[DESCRIPTOR COUNT=n {| 0 


POINTER TO ARGUMENT 1 


N = © 


io £3 POINTER TO ARGUMENT 2 


POINTER TO ARGUMENT n a 
_ OPTIONAL POINTER TO STACK FRAME 
OF CONTAINING BLOCK 


2*ni 


POINTER TO DESCRIPTOR 1 
POINTER TO DESCRIPTOR 2 


POINTER TO DESCRIPTOR n: - 


‘STANDARD DESCRIPTOR 


FLAG PACKED 


NUMBER OF DIMENSIONS 
: LOWER BOUND _“ 3 
ara | FOR RIGHTMOST 
22 UEFER SOUND — en j Sass 
PRESENT ONLY _ ELEMENT SEPARATION® 


IF NUMBER OF * 
DIMENSIONS # 0 ; 


UPPER BOUND ae 
ELEMENT SEPARATION® | 


FOR LEFTMOST- 
DIMENSION 


_ * IN BITS IF PACKED; IN WORDS OTHERWISE 
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ARGUMENT LIST FORMAT 


@ IN THE PREVIOUS DIAGRAM: 
n IS THE NUMBER OF ARGUMENTS PASSED TO THE CALLED PROCEDURE 
code IS 4 FOR NORMAL INTERSEGMENT CALLS AND IS 10 (OCTAL) 
FOR CALLING SEQUENCES THAT CONTAIN AN EXTRA STACK FRAME 
POINTER ~- IT WILL BE PRESENT FOR CALLS TO PL/I INTERNAL 
PROCEDURES _ BS | 


descriptor count =n ORO. 
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ARGUMENT DESCRIPTORS 


@ A PROCEDURE WHICH MAY RECEIVE 


A VARYING NUMBER OF ARGS 


ARGS WITH VARYING EXTENTS 


MUST: BE PASSED AN ARGUMENT LIST CONTAINING DESCRIPTORS OF THOSE 
ARGUMENTS, SO THAT THE CALLED PROCEDURE MAY KNOW HOW TO INTERPRET 


THE ARGUMENTS 


 PL/1 ONLY PASSES DESCRIPTORS IF CALLED PROCEDURE IS DECLARED 
-Tentry options (variable)' OR PARAMETERS OF CALLEE HAVE * 


EXTENTS 


f IT IS THE RESPONSIBILITY OF A PROGRAM CALLING SUCH A PROCEDURE 
TO BUILD DESCRIPTORS AND INCLUDE THEM IN THE ARGUMENT LIST 


f DESCRIPTORS HAVE A STANDARD FORMAT AS DEFINED BELOW: 


descriptor 
(2 flag 

2 type 

2 packed 

2 number dims 
2 size 


aligned, 

bit(1), 

bit(6), 

bit(1), 

bitcs), /* = 15 max */ 

bit(24)) unaligned; /* HAS VARIOUS 
MEANINGS */ 


WHERE type IS ENCODED AS SHOWN ON THE NEXT PAGE. 


11H 
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ARGUMENT DESCRIPTORS 


/* BEGIN INCLUDE FILE ... std_descriptor_types.incl.pl1 */ 


/*® This inelude file defines mnemonic names for the Multics 
standard descriptor types, using both pli and cobol terminology. #/ 


del (real fix bin 1 dtype init ( 
real fix bin. 2 dtype init (2 
real flt bin_1 dtype init ( 
real flt bin 2 "dtype init ( 
eplx fix _bin_1_dtype init ( 
cplx_ fix_ bin 2. _dtype init (¢ 
cplx_flt bin _1 dtype init ( 
eplx_flt_bin 2 dtype init (8), 
real_ fix dec 9bit_ ls | dtype ‘init (9), 
real flt dec obit _ dtype init (10), 
eplx fix, dec 9bit 1s dtype init (11), 
eplx flt dec 9bit dtype init (12), 
pointer dtype init (13), 
offset dtype init (14), 
label dtype init (15), 
entry dtype init (16), 
structure_dtype init (17), 
area dtype init ee 
bit_dtype init (19), 
varying bit dtype init (20), 
char_dtype init (21), 
varying char uatyes init (22), 
file dtype init (23), 
real fix_dec 9bit_ls overp dtype init (29), 
real_ fix_ _dec 9bit_ ts overp_ _dtype init (30), 
real_ fix_ bin 7 _uns | dtype init (33), 
real fix bin 2 uns dtype init (34), 
real fix dee 9bit_uns dtype init (35), 
real fix dec 9bit ts dtype init (36), 
real fix _dec 4bit uns dtype init (38), /* digitealigned *®/ 
real fix dec 4bit_ts dtype init (39), /* byte-aligned */ 
real fix dec 4bit bytealigned_ uns dtype init (40), /#* COBOL */ 
real fix dec 4bit_1s dtype init (41), /#* digit-aligned */ 
real flt_ dec 4bit_dtype init (42), /# digit-aligned #/ 
real fix dec 4bit bytealigned_1ls dtype init (43), 
real flt dec 4bit bytealigned dtype init (44), 
eplx_ fix dec 4bit_ bytealigned ls dtype init (45), 
eplx flt_dec 4bit bytealigned dtype init (46), 


NOAUEW Yo 
Net a? a ae? a 
a a ee ee er 
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ARGUMENT DESCRIPTORS 


eobol comp 6 dtype init (1), 

cobol_comp 7 dtype init (1), 

cobol display_ls dtype init (9), 

ecobol structure dtype init (17), 
cobol_char_string_dtype init (21), 

cobol ~display_ ls overp dtype init (29), 

cobol display ts_ , overp | y dtype init (30), 

cobol display uns _dtype init (35), 

cobol | _display_ ts _ dtype init (36), 

cobol_comp 8 uns dtype init (38), /*® digit aligned */ 
cobol_comp 5 ts dtype init (39), /# byte aligned */ 
cobol comp 5 uns dtype init (40), 

cobol_ comp 8 ls dtype init (41) /* digit aligned */ 
) fixed bin internal statie options (constant); 


del (ft_integer_dtype init (1), 
ft real dtype init (3), 
ft double dtype init (4), 
ft complex dtype init (7), - 
ft_external_dtype init (16), 
-ft_logical_dtype init (19), 
ft _char_dtype init (21) 
) Fixed” bin internal static options (constant): 


del (label _constant_runtime _dtype init (24), 
int_entry_runtime_dtype init (25), 
ext_entry runtime dtype init (26), 
ext_procedure runtime _dtype init (27), 
picture runtime dtype init (63) 
) fixed bin internal static options (constant); 


/* END INCLUDE FILE ... sta Aeaneipeeneypan anor a/ 
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ARGUMENT DESCRIPTORS 


a 


POINTER TO ARGUMENT 1 


os |W HM = 6 


def 1S, 
2 A fixed bin (17,4), 
2 B(5), 
3C, 
3D; 


ee aaa are 


BASIC DESCRIPTOR OF S 
BASIC DESCRIPTOR OFA 
BASIC DESCRIPTOROFB 
LOWER BOUND OF B | 

UPPER BOUND OF B 

ELEMENT SEPARATION OF B 
BASIC DESCRIPTOROFC 
LOWERBOUNDOFC _—-- 
UPPERBOUNDOFC 
ELEMENT SEPARATION OF C 
BASIC DESCRIPTOROFD 
LOWER BOUNDOFD —s_«#w 
UPPERBOUNDOFD—it#*” 
ELEMENT SEPARATION OF 0 


Pe ae 
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CALLING A PROCEDURE ON THE FLY 


== Se Ee 


_@ MOTIVATION 


4 "CONSIDER THE COMMAND PROCESSOR, — 
TAKES THE COMMAND LINE FROM THE USER 
oh cnet THE LINE INTO CONMAND oe ARGUMENTS 


) HOW CAN IT CALL ALL THE VARIOUS COMMANDS (AND USER WRITTEN OBJECT 
SEGMENTS) WITHOUT HAVING DECLARED THEM AS AN EXTERNAL ENTRY? 
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CALLING A PROCEDURE ON THE FLY 


= sEEANGtheEE OE CR ere 


@ HOW CAN THE USER DO SUCH A "CALL ON THE FLY"? 


} hes_$make_ entry 


) call hes $make_entry (ref_ptr, entryname, entry_ post name, 
entry_point, code); 


2 GIVEN A REFERENCE NAME AND AN ENTRY POINT NAME, RETURNS THE 


§ IF THE REFERENCE NAME HAS NOT BEEN INITIATED, THE SEARCH 
: RULES ARE USED TO FIND A SEGMENT WITH THAT NAME, THE SEGMENT 
IS MADE KNOWN AND THE REFERENCE NAME INITIATED 


0 cu_$generate_call 
I eall cu_$generate_ call (proc_entry, arg ptr); 


J) USED TO INVOKE A PROCEDURE BY PASSING IT AN ENTRY VALUE AND 
AN ARGUMENT POINTER (THE ENTRY VALUE WAS OBTAINED BY A PREVIOUS 
CALL TO hes $make_ entry) 


D THE USER MUST HAVE PROVIDED AN ARGUMENT LIST STRUCTURE 


(EVEN IF NG ARGUMENTS ARE PASSED TO THE PROCEDURE BEING 
INVOKED) 
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CALLING A PROCEDURE ON THE FLY 


@ SIMPLIFIED EXAMPLE: 


generate pwd: proc; 
del 1 arg list aligned, 

2 header, 
3 arg count fixed bin a7) oneigned unal init (0), 
3 pad? bit (1) unal, 
3 call_type fixed bin (18) unsigned unal, 
3 dese_count fixed bin (17) unsigned unal, 
3 pad2 bit (19) unal, 

2 arg ptr ptr init (null()), 

2 dese _ptr ptr init (null()) 5 


cu_$generate call entry (entry, ptr);. 

hes $make_ entry entry (ptr, char (#) char (#), entry, 
fixed bin ((35)); 

code fixed bin (35); | 

com_err_ entry options (variable); 

entry_ point entry variable; . 


call hes $make_entry (null), "pwa", "pwd", entry point, code); 
if code “= 0 then do; . 
call com_err_ (code, "generate") ; 
return; 
end; | 
call cu_$generate_ call (entry_point, addr (arg list)); 
generate pwd; | “f° = : 


q 
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BUILDING DATA SEGMENTS 


@ create data_segment_ 


call create data_segment_ (cds _arg_ptr, code); 


USED IN CONJUNCTION WITH THE create data segment COMMAND TO CREATE 
A DATA SEGMENT IN STANDARD OBJECT FORMAT 


| REFERENCES A PL/1 DATA STRUCTURE (SUPPLIED BY THE USER) WHEN 


BUILDING THE DATA SEGMENT 


) PERMITS THE CALLER TO CREATE A DATA SEGMENT FOR WHICH THE 
LEVEL-2 MEMBERS OF THE PL/1 STRUCTURE ARE ACCESSIBLE AS ENTRY 
POINTS (NOTE THE pds AND sys info SEGMENTS) 
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BUILDING DATA SEGMENTS 


HOW cds WORKS 


CREATED BY SOME TEXT EDITOR 


add_name demo_cds.pi1 =.cds 


_ THIS EXECUTABLE OBJECT 
PROGRAM IS CREATED WHEN 
eds CALLS THE PL/1 COMPILER 


CREATED WHEN cds COMMAND 
PROCEDURE AUTOMATICALLY 
CALLS demo _cds 
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BUILDING DATA SEGMENTS 


{ pr >ldd>include>cds args.incl.pli 


/* BEGIN INCLUDE FILE cds args.incl.pl1 */ 


del 1 


del 


2 


eds args based aligned, 


gee (2), 
3p /* pointer to data for text/static section 
3 fen fixed bin (18), /* size of text/statie section 


M 0% fo 


3 struct_name char (32), /*® name of declared structure 

seg name char (32), /*® name to create segment by 
num . exclude_ names fixed bin, /* number in exclude array 
exclude _array_ ptr ptr, /* pointer to exclude array 
switches, /* control switches 
3 defs_ in_ link bit (1) unal, i says put defs in linkage 


3 separate static bit (1) unal, /* separate Static section 


wanted 
3 have text bit (1) unal, /* ON if text section given 
3 have_static bit (1) unal, /* ON if static section given 
3 pad bit (32) unal; /*® must be zero 


-exelude names (1) char (32) based; 


/* pointed to by eds ) args.exclude_array_ ptr 


/* END INCLUDE FILE cds args.inel.pl1 #/ 
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BUILDING DATA SEGMENTS 


! pr demo cds.pli 


demo_ eds: proce; 
del “create _data_segment_ entry (ptr, fixed bin (35)); 
Zinclude cds | args; 
del cds arg_ ptr ptr; 
del (ioa_, com_err_) entry options (variable) ; 
del code fixed bin (35); 
del (size, null) builtin; 
del 1 entrypointnames based (eds arg ptr -> eds args.secticns (1).p), 
2 alpha fixed bin (35), | 
2 beta char (4), 
2 gamma bit (36), 
2 delta ptr; 


allocate cds args set (eds arg ptr); 

eds arg ptr => eds ;_ args. sections (143. len = size (entrypointnames); 
eds arg ptr -> cds args.sections (1).struct_name = "entrypointnames"; 
eds arg pas -> eds_ ,_args.seg name = "data | seg"; 

eds arg ptr -> cds args.sections (2).len = 0; 

eds arg ptr => cds_ } args.sections (2).struct_name = ""; 

eds_ arg ptr -> eds_ } args.num_ exclude names = “0; 

eds_arg ptr -> cds_args.exclude_array ptr = null O¢ 

eds arg _ ptr => eds } args. switches. defs_ in_link = "O"b; 

eds arg “ptr => eds_ ) args.switches. separate static = "0"b; 

eds_arg ptr -> cds _args.switches.have text = "1"b; 

eds_ arg ptr => eds ;_args.switches. have_ static = "0"b; 

eds_ arg ptr => eds_ }_args.switches.pad = "ONDS 


cali create data_segment  (cds_arg ptr, code); 
if code “= 0 then call com_err_ (code, "demo eds"); 
else call ioa_ ("Segment creation complete."); 
end demo cds; 


i 
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BUILDING DATA SEGMENTS 


fan demo _cds.pli =.cds 
r 14332 0.096 2 


feds demo _cds 

CDS -PL/I 26a 

Segment creation complete. 
r 14:32 1.699 53 

fis -first 3 


Segments = 43, Lengths = 155. 


r 1 data_seg 

re 1 demo _cds | 

rw 1 demo eds.pli 
demo_cds.cds 


r 14:33 0.151 2 
{pli data_seg 


data seg 10/10/80 1433.9 mst Fri 


Object Segment >udd>MEDmult>F15C>do>data_ seg 

Created on 10/10/80 1432.9 mst Fri 

by NDibble.MEDmult.a 

using create _data_ segment_, Version II of Friday, May 16, 1980 


Object Text Defs Link Symb Static 
Start re) 0 6 52 62 62 
Length 224 6 Ky 10 126 0 


6 Definitions: 


segneme: data seg 

texti0 alpha 

textil beta 

text} delta 

texti2 gamma 

symb;90 Symbol table 
No Links. 
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CREATING AN ERROR TABLE 


@ USERS MAY CREATE THEIR OWN STATUS CODE TABLE 
) THEY ARE CONSTRUCTED USING ALM MACROS DEFINED IN et_macros.incl.alm 


J THE SREEEION OF THE SOURCE CODE IS AS FOLLOWS: 


include et_ macros 
et @*e¢eed3s 
ec @a2#eee¢6 
ec @eseesee 
OC cecce 


0 THERE ARE THUS 2 MACROS USED 


i THE "et" “MACRO INITIALIZED THE CODE TABLE AND MUST. APPEAR 
FIRST 


et <name of_ table> 


) THE “ect MACRO ASSOCIATES A STATUS CODE NAME WITH A SHORT 
' MESSAGE AND A LONG MESSAGE 


ec <code_name>,<short_message>,(<long_ message>) 


0 EXAMPLE: 


inelude et_macros 
et user errors 
ec too_ Tew | arguments, toofew,(There were too few eicumanens ) 
ec could_ not_ access data nopriv, 
(User is not uffieiently priviliged to access data. 
ec (fatal, ,disaster) ,disaster, , . 
, (There was a disastrous error in the data base.) 
end e 


Not To Be Reproduced 1200 - Fi5D 


CREATING AN ERROR TABLE 


J THE CODE NAME: 
) MUST BE 31 CHARACTERS OR LESS IN LENGTH 


2 MULTIPLE NAMES MAY BE GIVEN (SEPARATED BY COMMAS AND ENCLOSED 
IN PARENTHESIS) 


f THE SHORT MESSAGE: 
f MUST BE 8 OR LESS CHARACTERS IN LENGTH 


} IF OMITTED, IT IS SET TO THE CODE NAME 


) THE LONG MESSAGE MUST BE: 
f 100 OR LESS CHARACTERS IN LENGTH 


-§ ENCLOSED IN PARENTHESIS 
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CREATING AN ERROR TABLE 


@ ! pr weird_errors.alm 


include et_ macros 

et weird_ errors 

ec error_ a,number2, (Warning: The number has peacned. two.) 

ates ~b snumber3, asecond warnings The number has reached three.) 
en | | 


) alm weird_errors.alm 
ALM 


! pr calling_ program.p1t 


calling_ program: proc; 
del x fixed bin (17) excarnar static “4nitco); 
del com_err_ entry options (variable); 
del my Subprogram entry (fixed bin(17), fixed bin | 035005 
del code fixed bin (35); | 
del sysprint file; . 
-=s xX + 13 
put data (x); 
put skip; 
call my_ suprogram (x, eode): _ 
if code “= 0 then call com_ err_ (code, “calling program"); 
end calling program; eo 


! pr my_subprogram.pl1 


my subprogram: proc (input, code); 
del input fixed bin (17); 
del code fixed bin (35); 
del weird errors$error_a fixed bin (35) external Static; 
del weird _errors$error_ b fixed bin (35) external static; 
code = 0; 
if input = 2 then ‘eode = weird errors$error_a; 
if input = 3 then code = weird _errers$error_ b; 
end my_subprogram; 


! calling program | _ . — 
x= 15 | | | SSE 


calling program 
X= 25 ~ 
calling program: Warning: The number has. reached two. 


! calling program 8 | _ 
— 3; co 
calling program: Second Warning: The number has reached three. 


>< — 


! calling program 
4; 


Not To Be Reproduced  4De tT Fi5D 


CREATING AN ERROR TABLE 


YOU ARE NOW errs FOR WORKSHOP 
# 
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THE STANDARD PROCESS ENVIRONMENT 


@® THE STANDARD PROCESS ENVIRONMENT IS ESTABLISHED FOR A PROCESS BY 
. THE SUPERVISOR WHEN THAT PROCESS IS CREATED 


@® THE SERIES OF PROGRAMS INVOKED BEGINNING WITH THE TIME THAT A USER 

CONNECTS WITH THE FRONT-END PROCESSOR AND TERMINATING WITH THE FIRST 

_ READY MESSAGE PRINTED ON THE USER'S TERMINAL IS Caen THE "PROCESS 
CREATION CYCLE" 


@ MUCH OF THE WORK DONE TO CREATE A PROCESS IS DONE BY THE SUPERVISOR 
| IN THE SUPERVISOR RING (RING cae AND SOME OF THE WORK IS DONE IN 
. THE Sent RING 


@ BEFORE EXAMINING THE OPTIONS AVAILABLE TO THE DESIGNER FOR MODIFYING 
: OR REPLACING THE STANDARD PROCESS ENVIRONMENT, AN EXAMINATION OF 
WHAT STEPS THE SUPERVISOR NORMALLY TAKES WILL BE WORTHWHILE - 4 
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THE STANDARD PROCESS ENVIRONMENT 


@ PRINT LOGIN BANNER 


© VERIFIES PERSON _!D 
AND PASSWORD 


@ REFERENCES THE PROJECT DEFINITION TABLE (pdt) 
e VERIFIES PROJECT_ID 
@ INITIALIZES SOME ACCOUNTING 

DATA BASES 


e PROCESS DIRECTORY CREATED AND SCREECH-NAMED 

@ PROCESS INITIALIZATION TABLE (pith CREATED/INITIALIZED 
© ACTIVE PROCESS TABLE ENTRY (apte) CREATED/INITIALIZED 
© KNOWN SEGMENT TABLE (kst) CREATED/INITIALIZED 

Ug oe pe ae . © PROCESS DATA SEGMENT (pds) CREATED/INITIALIZED 
RING 3 ‘© 36-BIT PROCESS ID DEVELOPED 


 T gtack_@ CREATED 
“I . CURRENT VALIDATION LEVEL ADJUSTED 
CHECKS pit TO SEE IF absentee, interactive, 


7 or dsemon BEING LOGGED IN 
] 
t 


‘@ MAKE ATTACHMENTS OF 4 STANDARD SWITCHES 
© DETERMINE init_proc FROM pit 
® ESTABLISH STATIC HANDLERS FOR term, 
eput and sirm CONDITIONS 


CALL ‘init_proc’ PRCCEDURE {NORMALLY process_overseer_} 
PASSING adde(pit} IFF SYSTEM-SUPPLIED GVERSEER 
BEING CALLED 


© SET UP DEFAULT HANOLER (wail) -OR 
THE any_other CONDITION 
© PRINT MOTD IF seart_up.ec NOT TO BE EXECUTED 


. AND LOGIN NOT-brief Ha cae oi aa, te es 
IF A start_up.ec IS TO BE © DEVELOP A COMMAND LINE AND Pass IT TO 
4 EXECUTED, COMMAND listen _Slisten _ oe 


f 


e@ ESTABLISHES LEVEL 1 
s INVOKES CURRENT READY PROCEDURE BY 
CALLING cu_ Sready_ proc . oe 
© CALLS cu_Scp, WHICH PASSES COMMAND LINE 
' TOCURRENT COMMAND PROCESSOR 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS CREATION IN THE SUPERVISOR RING 


@® THE "SYSTEM CONTROL PROCESS" (Initializer .SysDaemon) IS RESPONSIBLE 
FOR RESPONDING TO ATTEMPTS TO CREATE A PROCESS, AND SOME OF THE 


MODULES 


EXECUTED BY THE SYSTEM CONTROL PROCESS IMPLEMENT PROCESS 


CREATION AS FOLLOWS: 


fl ANSWERING SERVICE 


f IS RESPONSIBLE FOR 


) dialup_ 


INTERACTIVE LOGINS 
HANGUPS 
THE LOGGING OF THESE ACTIVITIES 


MANAGING THE COMMUNICATION LINES CURRENTLY ATTACHED TO SYSTEM 
(USES CHANNEL DEFINITION TABLE) 


) asu_$asu listen ESTABLISHES AN EVENT-CALL CHANNEL FOR 
EACH COMLINE, MAKING ‘dialup _' THE EVENT HANDLER 


l A "CONNECT" ON A COMLINE IS CONSIDERED A "TTY EVENT", 
WHICH RESULTS IN A WAKEUP ON ONE OF THESE CHANNELS 


CIN >tools>bound_user_control_) 


1 IS AUTOMATICALLY CALLED WHEN A TERMINAL IS CONNECTED 


] PRINTS LOGIN BANNER ON THE TERMINAL 


) READS INITIAL TYPED LINE (login, enter, enterp, dial, ETC) 
AND PASSWORD . 


J CALLS 1g_ctl_$login TO VERIFY PERSON ID AND PASSWORD 
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THE STANDARD PROCESS ENVIRONMENT 
- PROCESS CREATION IN THE SUPERVISOR RING 


ee to EE ee 


d atelup__ CONTINUED 


. CALLS act etl _$open_ acccank AND act_ etl _SoP TO 


‘VERIFY PROJECT_ ID (VIA A CHECK OF PROJECT DEFINITION TABLE) 
INITIALIZE SOME ACCOUNTING DATA BASES FOR THIS PROCESS 


I FINALLY CALLS CPe_ (CREATE PROCESS GROUP) TO ACTUALLY CREATE 
PROCESS © | 


2 FINALLY, CONTROL IS & 


-36- BIT PROCESS ID DEVELOPED 


PROCESS DIRECTORY CREATED AND SCREECH-NAMED 


PROCESS INITIALIZATION TABLE CREATED/INITIALIZED 
ACTIVE PROCESS TABLE ENTRY CREATED/ INITIALIZED 
KST AND DSEG CREATED/INITIALIZED 


PROCESS DATA SEGMENT (RING 0 STACK) CREATED/INITIALIZED 


ASSED IN A RATHER UNUSUAL FASHION (TO ‘THE. 


Pp 
OUTER RING IN WHICH THE PROCESS IS TO RESIDE 


q A STACK SEGMENT IS CREATED IN THE ULTIMATE RING (USUALLY 4) 


J A STACK FRAME 1S LAID DOWN FOR A USER RING INITIALIZATION 
PROGRAM 


THE CURRENT VALIDATION LEVEL IS ADJUSTED TO THAT RING LEVEL | 


) A PSEUDO-RETURN IS MADE TO THAT USER-RING INITIALIZATION PROGRAM - 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS INITIALIZATION IN THE USER RING 


@ THE STANDARD PROCESS ENVIRONMENT IS ESTABLISHED IN THE USER RING BY 
THE INVOCATION OF THE USER=-RING PROCESS CREATION PROGRAMS: 


0 user_init_admin_ FUNCTIONS 


AFTER BEING INVOKED THROUGH ONE OF THREE ENTRY POINTS: 
J user_init_admin_ 
J absentee _init_admin_ 


J daemon_init_admin_ 


f IT CALLS EITHER 
J user_real_init_admin_$user_real_init_admin_ 
0 OR daemon_real_init_admin $daemon_real_init_admin_ 
{| OR absentee _real_ init _admin_$absentee real_init_admin_ 
) - WHEN RETURNED TO BY ONE OF ABOVE, IT CALLS THE ‘init _proc' 
PROCEDURE ; 


THE VALUE -OF ‘init _proc' IS RETURNED BY ONE OF. THE ABOVE 
THREE 


{ A pit_ptr IS PASSED TO init_proe 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS INITIALIZATION IN THE USER RING 


§ user_real_init_admin_ FUNCTIONS 
J DEVELOP PTR TO PROCESS INITIALIZATION TABLE (pit) 
) DETERMINE FROM pit WHICH IO_MODULE TO USE (USUALLY tty_) 


) ATTACH user input, user output, error output AS SYNONYMS FOR 
user i/o 


1 ATTACH AND OPEN user_i/o TO CHANNEL NAME FOUND IN pit 


| DETERMINE. (FROM pit) WHAT ‘init pone PROCEDURE IS TO BE USED 
(USUALLY process_ overseer _$process__ overseer _) 


) PROJECT ADMINISTRATOR MAY FORCE A PARTICULAR init proce TO 
BE USED 


f USER MAY HAVE BEEN GIVEN PERMISSION TO USE ‘'=po' CONTROL 
ARG OF THE login COMMAND, AND COULD HAVE USED IT TO SPECIFY 
THE DESIRED ah a 


| SET UP STATIC HANDLERS FOR 'alrm', ‘cput', AND ‘term’ CONDITIONS 
BY CALLING sct _ Manager $set eee 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS INITIALIZATION IN THE USER RING 


—— ae ee Eee 


q Precess JOvenecer.. .UNGizONS 
1 CALL ‘eondteion TO SET UP default error_ handler. _$walil't AS 
THE HANDLER FOR '° any_ other’ CONDITION 
a IMPORTANT: IN ORDER TO COMPLETELY CONTROL A USER, ONE 
MUST BE ABLE TO CHANGE THIS DEFAULT BEHAVIOR. THIS Is ONE 


OF THE MOST IMPORTANT REASONS FOR FURNISHING A SPECIAL 
aie. PEOCs 


‘| CHECK pit TO SEE IF THIS IS new proc OR login 


) CHECK pit TO.SEE IF start_up.ec SHOULD BE INVOKED 
l RECALL: USE OF -ns LOGIN CONTROL ARG IS RESTRICTABLE 


____ J - BUILD ONE OF TWO. INITIAL COMMAND LINES: 
f exec_com startup _dir>start_up instance type 


i WHERE oe dir IS HOME DIRECTORY, PROJECT DIRECTORY, 
>sc 


f WHERE instance IS ‘login’ OR 'new_proc' 
2 AND type IS ‘interactive! OR ‘absentee! 
) home_dir, instance, AND type ARE DETERMINED FROM pit 
1 ™" (NULL COMMAND LINE) 
) TERMINATE pit — 


J CALL listen $iisten_ WITH INITIAL COMMAND LINE 
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f listen_ 


THE STANDARD PROCESS ENVIRONMENT 


PROCESS INITIALIZATION IN THE USER RING 


1 BASIC FUNCTIONS 
) ‘'LISTENS' FOR LINES TYPED BY THE USER. 


PASSES COMMAND LINE ON TO THE CURRENT COMMAND PROCESSOR 


f INVOKES CURRENT READY PROCEDURE WHEN RETURNED TO (AFTER 
COMMAND LINE EXECUTION OR PRINTING OF ERROR MESSAGES) 


f ALSO ENABLES QUITS 


) ENTRY POINTS IN listen_: 


J listen_ 


INVOKED ONLY BY init proc 

ESTABLISHES A FRAME CONSIDERED TO BE "FIRST LEVEL" 
PASSES com_line ptr AND com_line_ length TO cu_$ep 
CALLS cu_$ready proc WHEN RETURNED TO 


1 release stack 


CALLED WHEN AN ATTEMPT IS oe TO REENTER COMMAND LEVEL 
(LEVEL #4 1) 


ESTABLISHES ITS STACK FRAME AS CURRENT LEVEL OF LISTENER 


‘REMEMBERS! PREVIOUS LEVEL AND VERY FIRST LEVEL OF LISTENER 
(FOR PURPOSES OF release) 


PASSES com_line_ptr AND com_line_length TO cu_$ep 
CALLS cu.$ready_ proc WHEN RETURNED TO 


f OTHER ENTRY POINTS 


USED BY OTHER PROCEDURES TO OBTAIN INFO ABOUT | 


WHERE TO RELEASE TO 
WHERE TO ‘start! 
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MODIFYING THE PROCESS ENVIRONMENT 


® ONE CAN MODIFY THE STANDARD PROCESS ENVIRONMENT USING SEVERAL DIFFERENT 
TECHNIQUES 


@ THE AMOUNT OF CONTROL DESIRED ON A PROCESS CAN BE CLASSIFIED AS 
’ FOLLOWS: 


f SIMPLE CONTROL 


2 USING texec_ com' SEGMENTS, THE USER CAN BE RESTRICTED TO LABEL 
ENTRY POINTS IN THE ec SEGMENT ITSELF 


STANDARD PROCESS OVERSEERS 
1 “PROVIDED BY SYSTEM TO CONTROL THE ENVIRONMENT OF THE USER IN 
VARYING LEVELS OF RESTRICTION ~ 
1 accounts overseer IS USED BY ‘REGISTRATION AND ACCOUNTING 


ADMINISTRATORS! TO LIMIT THE NUMBER OF THINGS THEY CAN DO 
{SEE APPENDIX B) 


f SEE APPENDIX E FOR SOME OF THE STANDARD OVERSEERS 


2 CLOSED SUBSYSTEM OVERSEERS 


) THE 'fst process overseer_' IS AN EXAMPLE OF AN OVERSEER WHICH 
PLACES THE USER IN A COMPLETELY CLOSED ENVIRONMEN™ FROM WHICH 
ESCAPE IS IMPOSSIBLE 


iw) 
§ 
1 * 
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MODIFYING THE PROCESS ENVIRONMENT 


) LIMITED SUBSYSTEMS 


J THE SYSTEM PROVIDES THREE WAYS OF FORCING USERS INTO A LIMITED 
SUBSYSTEM 


J USER-CREATED SUBSYSTEMS 


) BY WRITING ONE'S OWN PROCESS OVERSEER, ONE CAN ATTAIN COMPLETE, 
CUSTOMIZED CONTROL OVER A PROCESS 


@ MOST OF THESE FUNCTIONS REQUIRE INVOLVEMENT OF A PROJECT ADMINISTRATOR 
(BECAUSE OF NEED TO MODIFY pmf AND INSTALL NEW pdt) 


@ EXAMPLE OF A pmf 
Projectid: F1I5D;_ 


Initproc: process overseer 3; 
Grace: 60; 
Attributes: vinitproc,vhomedir ,multip,nostartup,dialok, 
disconnect ok,save_on disconnect; 
Limit: 75.00; 
personid: Student 01; 
personid: Student 02; 
‘personids  —- Student 03; 
personids Student _04; 
personid: Student 05; 
personid: Student 06; 
personid: Student _07; 
end; 
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MODIFYING THE PROCESS ENVIRONMENT 
PROJECT ADMINISTRATION 


THE LIST OF PERSONS WHO MAY LOG IN ON A PROJECT IS CONTAINED IN A 
BINARY TABLE,THE PROJECT DEFINITION TABLE (pdt), WHICH RESIDES IN 
THE DIRECTORY epeea7 ree: 


0 ONE pdt SEGMENT EXISTS FOR EACH PROJECT 


) ONE pdt ENTRY EXISTS FOR EACH USER, SPECIFYING THE USER'S ATTRIBUTES 
. AND RESOURCE LIMITS ON THE PARTICULAR PROJECT 


0 USING THE ecv_pmf COMMAND, A PROJECT ADMINISTRATOR CREATES A 
- TEMPORARY pdt FROM A SEGMENT KNOWN AS THE PROJECT MASTER FILE 
(pmf), WHICH IS USUALLY UNDER THE PROJECT DIRECTORY 


J THE TEMPORARY pdt IS INSTALLED IN THE SYSTEM DIRECTORY BY THE 
PROJECT ADMINISTRATOR USING THE install COMMAND 


(| AT LOGIN TIME, act ctl _ USES THE APPROPRIATE pdt TO DETERMINE 


Not 


_ WHICH OPTIONS AND RESOURCES ARE AVAILABLE TO A USER 


SEE MAM PROJECT ADMINISTRATOR (Order No. AK51) FOR COMPLETE DETAILS 
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MODIFYING THE PROCESS ENVIRONMENT 
PROJECT ADMINISTRATION 


@ SOME OF THE ATTRIBUTE INFORMATION MAINTAINED FOR EACH USER IN THE 
PDT IS GIVEN BELOW: © cee. 


-. ) .Romedir - ABSOLUTE PATHNAME OF USER'S HOME DIRECTORY 


_ ) initproc - NAME OF THE USER'S PROCESS OVERSEER PROCEDURE 


| attributes: 


a 


AND SO ON... 


‘nobump - USER NOT SUBJECT TO PREEMPTION 
_dialok - USER MAY USE THE DIAL FACILITY 
“multip - USER MAY LOG IN MORE THAN ONE INTERACTIVE PROCESS 


_ yvinitproe - USER MAY SPECIFY PROCESS OVERSEER AT LOGIN 


_vhomedir - USER MAY SPECIFY HOME DIRECTORY AT LOGIN 


nostartup - USER MAY ESCAPE FROM USING HIS start_up.ec 


SY 
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MODIFYING THE PROCESS ENVIRONMENT 
CLOSED SUBSYSTEMS 


@ A CLOSED SUBSYSTEM IS A SUBSYSTEM IN WHICH THE Multics SYSTEM IS. 
NOT DIRECTLY AVAILABLE - RATHER, THOSE PROGRAMS IMPLEMENTING THE 
CLOSED ENVIRONMENT TAKE FULL CONTROL OVER A PROCESS 


@ THE SYSTEM-SUPPLIED OVERSEER ‘accounts _ overseer_ * IMPLEMENTS A CLOSED 
| euborsiet 


J accounts overseer HANDLES ALL INPUT FROM THE ‘TERMINAL (IT. E<,y. 17 
IS IT'S OWN LISTENER), AND IT SEVERELY RESTRICTS THE USER TO A 
SMALL SET OF COMMANDS 


— IT MAKES USE OF AN exec com SEGMENT, ' '>tools>master.ec' TO IMPLEMENT 
SPECIAL FUNCTIONS FOR THE "REGISTRATION AND ACCOUNTING 
ADMINISTRATOR" WHO WILL BE-OPERATING UNDER THIS ENVIRONMENT 


--@ THE SYSTEM-SUPPLIED 'fst process overseer ' ALSO IMPLEMENTS A CLOSED 
SUBSYSTEM, A "TIME-SHARING FORTRAN" SYSTEM 


@ THE SYSTEM SUPPLIED OVERSEER ‘project_start_up ' MAY BE USED TO 
IMPLEMENT A CLOSED SUBSYSTEM 


— ) _ 
T- project_ directory>project start up.ec ALWAYS EXECUTED BEFORE 
start_up.ec (WITH QUITS DISABLED) 
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MODIFYING THE PROCESS ENVIRONMENT 
LIMITED SUBSYSTEMS 


@ IN A LIMITED SUBSYSTEM, THE USER IS LIMITED TO A SET OF COMMANDS 
CONTAINED IN A "COMMAND LIST" SEGMENT 


@ THREE MEANS OF UTILIZING THE “LIMITED SERVICE SUBSYSTEM": 


] IF init proc = 1lss_login_ responder_$lss_login responder_ 
f LIST OF COMMANDS ARE CONTAINED IN >sss>lss_command_list_ 


) command processor _ WILL CHECK EVERY COMMAND ENTERED BY THE 
USER AGAINST THIS LIST = ONLY IF IT IS ON LIST WILL IT BE 
EXECUTED 


] IN ADDITION, A CPU USAGE GOVERNOR WILL BE ENABLED, LIMITING 
THE PROCESS TO 'ratio' CPU SECONDS PER ‘interval' REAL SECONDS 


§ NOTE: IF >sss>lss_command_list_ NOT FOUND AT LOGIN TIME, 
MESSAGE RELAYED IS: 


"The system is currently unavaiiatie". 
(A logout -hold IS DONE) 


- 


J iss_login_responder_$limited_command_system_ 


) SIMILAR TO ABOVE, BUT lss_command_ list IS SEARCHED FOR IN 
USER*S PROJECT DIRECTORY 
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MODIFYING THE PROCESS ENVIRONMENT 
LIMITED SUBSYSTEMS 


1 THE COMMAND, enter_lss 
0 USER SPECIFIES SEGMENT CONTAINING THE "COMMAND LIST* 


f CONSIDER IF enter_1lss COMMAND APPEARS IN project_start_up.ec 


@ COMMAND TABLES ARE CREATED USING THE ‘make_commands' COMMAND 


f make commands ACCEPTS THE NAME OF AN ASCII SEGMENT WITH THE SUFFIX 
OF fet', AND PRODUCES A COMMAND TABLE SEGMENT (THE ENTRYNAME 
WITHOUT THE "ot! SUFFIX) 


jf ASCII COMMAND LIST CONTAINS THREE TYPES OF STATEMENTS: 


1 ratio: R; 7 
| ‘SPECIFIES THE NUMBER OF CPU SECONDS MAXIMUM ALLOWED FOR 
THE PROCESS DURING THE SPECIFIED INTERVAL 
J interval: N3 
§ SPECIFIES THE NUMBER OF REAL-TIME SECONDS WITHIN WHICH THE 
PROCESS IS LIMITED TO 'R* CPU SECONDS 


1 (command_list): pathname; 
command _ name: pathname; 


0? SPECIFIES THAT THE COMMANDS IN THE (BLANK DELIMITED) 
command list OR THE COMMAND SPECIFIED BY command_name ARE 
ALLOWED, AND THAT THEY SHOULD CAUSE THE PROCEDURE SPECIFIED 
BY PATHNAME TO BE INVOKED WHEN THEY ARE ENTERED AS COMMANDS 
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MODIFYING THE PROCESS ENVIRONMENT 
LIMITED SUBSYSTEMS 


@ <A COMMAND LIST EXAMPLE 


/* set ratio and interval length a 


patio: : 453 
interval: 120; 


/* define commands */ 


(addname an): 

cale: 

(delete dl): 
(deletename dn): 
(list 1s): . 
logout: 

(print pr): 

(program interrupt pi): 
(rename rn): 

(start sr): 

edits: 


udd>MED>nd> list; 


Wwe wo we wo wo Wwe we we we 


sss>qedx; 
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MODIFYING THE PROCESS ENVIRONMENT 
LIMITED SUBSYSTEMS 


r 19339 0.116 2 
{pr xxx.ct 1 


logout: >sss>logout; 


pwd: >Sss> pwd; 

1s: >sss>ls; 
new_proc: >sss>new_proc; 
probe: >sss>probe; 


r 19:39 0.104 3 


!make_ commands xxx 
r 19:43 0.248 14 


!ls -first 1 

Segments = 72, Lengths = 80. 
re - 1 Xxx | 

r 19:43 0.216 13 


fenter_lss xxx 
r 19:44 0.065 0 


§who 
who is not a legal command | 
r 19:44 0.058 0 


QUIT 
r 19:44 0.118 4 level 2 


{who 
who is not a legal command 
r 19:44 0.035 2 level 2 


{pr xxx.ct 
pr is not a legal command 
r 19:44 0.033 0 level 2 


tlogout ‘ : 
NDibble MED logged ;o0ut 02/26/81 1459.8 mst Thu 


CPU usage 7 sec, memory usage 23.0 units, cost $0.48. 


hangup 
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MODIFYING THE PROCESS ENVIRONMENT 
NEW SUBSYSTEMS 


@ IN THE MOST EXTREME CASE, A DESIGNER MAY IMPLEMENT HIS/HER OWN 
' PROCESS ENVIRONMENT BY REPLACING THE STANDARD PROCESS OVERSEER WITH 
HIS/HER OWN PROCESS OVERSEER : 


f THE DESIGNER IS WARNED TO BE SURE TO PERFORM THE CRITICAL FUNCTIONS 
WHICH ARE NORMALLY PERFORMED BY STANDARD OVERSEERS, BUT BEYOND 
THESE RESTRICTIONS, THE DESIGNER IS FREE TO IMPLEMENT ANY 
ENVIRONMENT DESIRED 


| ‘process overseer .pl1' IS A GOOD REFERENCE FOR THE DESIGNER 
ATTEMPTING TO CREATE A NEW ONE (SEE APPENDIX B). 


| YOU ARE NOW READY FOR WORKSHOP 
# 
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Dialing Terminals to a Process 
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OVERVIEW 


@ NORMALLY THERE IS A ONE-TO-ONE CORRESPONDENCE BETWEEN AN INTERACTIVE 
PROCESS AND A TERMINAL DEVICE | 


 @ HOWEVER, Multics PROVIDES THE 'dial' FACILITY WHICH ENABLES A PROCESS 
‘TO. CONTROL MORE THAN ONE TERMINAL DEVICE 


@ THE DIAL FACILITY IS PART OF THE ANSWERING SERVICE 


@ THE ANSWERING SERVICE IS RESPONSIBLE FOR LISTENING TO THE COMMUNICATION 
_ LINES ATTACHED TO THE FRONT-END PROCESSOR (FNP) | 


a a 


@ A PROCESS HAVING THE Vaiwiou KEERCRURE (ASSIGNABLE BY THE SYSTEM 
AND PROJECT ADMINISTRATORS) MAY USE THE DIAL FACILITY 


1 ACCEPT DIALED TERMINALS. (REQUIRES NO SPECIAL HARDWARE) 


) DIAL OUT TO TERMINALS (REQUIRES ACCESS TO AUTO-CALL CHANNEL) 
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IMPLEMENTATION OF THE DIAL FACILITY 


@ ipe_ ESTABLISHES THE EVENT CHANNEL REQUIRED FOR COMMUNICATION BETWEEN 
THE USER PROCESS AND THE ANSWERING SERVICE 


@ dial _manager_ INTERFACES TO THE ANSWERING SERVICE'S DIAL FACILITY 


@ convert dial message INTERPRETS THE SPECIAL IPC MESSAGE SENT BY 
THE ANSWERING SERVICE TO A USER PROCESS 


@ THE ‘dial’ PRE-ACCESS COMMAND IS USED BY A TERMINAL OPERATOR ATTEMPTING 
TO DIAL IN TO AN EXISTING PROCESS (AG92) 
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IMPLEMENTATION OF THE DIAL FACILITY 


dial manager 


@ A POINTER TO AN ARGUMENT STRUCTURE IS PASSED IN ALL CALLS TO 
dial_manager_, AND THE MEANING OF THE STRUCTURE MEMBERS VARIES WITH 
EACH ENTRY POINT 


del 1. dial _manager_ arg ‘based al lgued, 


- 2 version fixed bin /* MUST BE SET TO 1 #/ 

2 dial “qualifier char(22), 
. 2 dialichannel fixed bin(71), /# EVENT-WAIT CHANNEL */ 
2 channel_name —— char(32); 


) dial qualifier 

) WILL BE A ‘dial id! TO BE SUPPLIED WHEN THE dial COMMAND Is 

TYPED (IF WE'RE ACCEPTING DIALS) 

OR WILL BE A PHONE NUMBER (IF WE'RE DIALING OUT) 
J dial_chamnel ss es 

{ AN EVENT-WAIT CHANNEL ID RETURNED BY ipe_ $create_ev_chn 

) MUST BE THE SAME FOR ALL CALLS TO dial_manager_ IN THIS PROCESS 

channel_name 


q IDENTIFIES A LINE ADAPTER AND PORT NUMBER ON THE BORD END - 
PROCESSOR 


J SEE APPENDIX C 
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DIALING TERMINALS TO A PROCESS 


@® STEPS INVOLVED IN DIALING TERMINALS TO A PROCESS 


Not To Be Reproduced {ued 


PROCESS DECLARES AN EVENT-WAIT CHANNEL TO BE USED BY THE ANSWERING 
SERVICE TO NOTIFY THE PROCESS OF CRITICAL EVENTS (SUCH AS SOMEONE 
DIALING IN TO THE PROCESS, SOMEONE HANGING UP, AND SO ON) 


PROCESS REQUESTS THAT THE ANSWERING SERVICE NOW ALLOW DIALS FOR 
THE PROCESS, PASSING THE EVENT-WAIT CHANNEL ID AND A "DIAL 
QUALIFIER" 


PROCESS MAY NOW CONVERT WAIT-CHANNEL TO CALL CHANNEL, IF DESIRED 


TERMINALS ARE DIALED INTO THE PROCESS USING THE ‘dial* COMMAND 


UPON NOTIFICATION FROM THE ANSWERING SERVICE THAT A TERMINAL HAS 
DIALED-IN, PROCESS MUST INTERPRET THE IPC MESSAGE PASSED, WHICH 
CONTAINS 


) CHANNEL-NAME (DEVICE ID) OF THE TERMINAL DIALED-IN 


1 FLAGS INDICATING WHAT TOOK PLACE ON THE COMLINE (DIALUP, HANGUP) 


“ PROCESS NOW ATTACHES THAT DEVICE AND COMMENCES TO DO LOGICAL I/0 


TO THAT TERMINAL 


3) 
aed 
wi 
Loar] 


DIALING TERMINALS TO A PROCESS 
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SUBROUTINES 


e dial _manager_$allow dials 


| REQUESTS THAT THE ANSWERING SERVICE ALLOW TERMINALS TO DIAL TO 
_ THE CALLING PROCESS — 


) THE CALLER SETS ‘dial _qualifier' IN THE dial_manager arg 
STauerune TO AN ALPHANUMERIC STRING FROM 1 TO 22 CHARACTERS 


? THE CALLER SETS dial manager _arg.dial channel TO THE EVENT-WAIT 
CHANNEL ID ESTABLISHED FOR COMMUNICATING WITH THE ANSWERING 
- SERVICE (NOTE THAT FOLLOWING A CALL TO 
dial manager_$allow dials, THE CALLER MAY CHANGE THE evENI MAE 

: CHANNEL INTO-AN EVENT-CALL CHANNEL IF DESIRED) 


e dial_manager_$registered_server 
J SIMILAR TO dial_manager $allow dials 


1 PERMITS TERMINALS TO DIAL IN WITHOUT FURNISHING Personid.Projectid 
AS dial COMMAND ARGUMENT — 


i dial_ qualifier MUST BE REGISTERED BY SYSTEM ADMINISTRATOR 


0 CALLER MUST HAVE rw ON >sciorep>dial.<dial_ qualifier>.acs 


wn 
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SUBROUTINES 


@ dial manager _$shutoff_dials 


{ INFORMS THE ANSWERING SERVICE THAT THE PROCESS WISHES TO PREVENT 
FURTHER DIAL CONNECTIONS, AND THAT EXISTING CONNECTIONS SHOULD 
BE TERMINATED 


J ACCEPTS SAME INFORMATION AS dial_manager $allow dials 


§ IMPORTANT RESTRICTION: dial_ channel MUST BE AN EVENT-WAIT; CALLER 
MAY Sa eeenoee HAVE TO CALL ipe_ $decl_ev_wait_chn FIRST 


@® convert _dial_message $return’ io module 


q SHOULD BE INVOKED BY A PROCESS WHEN IT HAS RECEIVED A WAKEUP 
FROM THE ANSWERING SERVICE ie i 


| REQUIRES THE IPC event_info.message AS INPUT AND RETURNS: 


{| THE DEVICE-ID (CHANNEL NAME) OF THE COMMUNICATIONS LINE THAT 
HAS DIALED-UP OR HUNG-UP 


V A STRUCTURE INDICATING WHETHER THE TERMINAL IN enemas HAS 
DIALED-UP, OR HUNG=UP 
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THE 'DIAL* COMMAND 


*dial' COMMAND: 
IS TYPED IN LIEU OF THE login COMMAND 


IS A REQUEST TO THE ANSWERING SERVICE TO CONNECT THE TERMINAL TO 


AN EXISTING PROCESS AND TO NOTIFY THAT PROCESS OF THE CONNECTION 


Not To 


USAGE: 
dial dial_id {Person_id.Project id} 


- THE USER MUST SPECIFY THE ‘dial id* THAT WAS PASSED TO THE ANSWERING 


SERVICE BY THE PROCESS ACCEPTING DIALS 


THE USER MUST ALSO SPECIFY THE ‘*Person_id.Project_id' OF THE 
EXISTING PROCESS, UNLESS dial_manager_ preg iabeney— server WAS 
ORIGINALLY USED TO ALLOW DIALS 
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DIALING TERMINALS TO A PROCESS 
AN EXAMPLE 


SET_UP_ DIAL: proc; 

del” ipe $create_ev_chn entry (fixed bin (71), fixed bin (35)), 
ipe_ $delete_ ev chn entry (fixed bin (71), fixed bin (35)), 
ipec_ ~$deel ev call chn entry (fixed bin (71), entry, 
ptr, fixed bin, fixed bin (35)), 
dial_ manager $allow_dials entry (ptr, fixed bin (35)), 
(ioa_, com_err_, ioa  $ioa_ switch) entry options (variable); 

del codé fixed bin (35)7 

ME char (12) varying init ("SET UP_DIAL") ; 

1 dial _mManager_arg aligned static, 

2 version fixed bin init (1), 

2 dial_qualifier char (22) init ("astra"), 

2 dial channel fixed bin (71), 

2 channel_name char (32) ; 


call ioa ("Begin “*a™, ME); 

call ipe_ $create ev_chn (dial _manager_arg.dial channel, 
code): 

if code “= 0 then call ERROR (1); 

eall dial paneer: $allow_dials (addr (dial _manager_ arg), 
code 

if code ~='0 then call ERROR (2); 

call ipe $decl_ev_call_ chn (dial_manager_arg.dial_ channel, 
‘DIAL_ HANDLER, nuli(), 0, code); 

if code “= 0 then call ERROR (3); 


call ioa_ ("Now listening for dials: “a", ME); 
return; " 
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DIALING TERMINALS TO A PROCESS 


AN EXAMPLE 


DIAL HANDLER: entry (info ptr); 


del 
Get 


del 


del 
del 


del 
del 


del 
del 
del 
del 
del 
del 


del. 
del 
del 


~ info ptr ptr parameter; 
1 event_info based (info_ptr), 
channel id fixed bin (71), 
message fixed bin (71), 
sender bit (36), 

origin, 

3 dev_signal bit (18) unal, 

3 ring bit (18) unal, 
2 data_ptr ptr; 


NMMMN 


convert dial message $return_ io_ module entry (fixed bin(71), 
char(#), char(*), fixed bin, 1 aligned, 2 bit(1) unal, 
2 bit(1) unal, 2 bit(i) unal, 2 bit(33) unal, fixed bin(35)3; 
which channel char (32); 

iocb ptr ptr; 


ipe_$cutoff entry (fixed bin(71), fixed bin(35)); 
ipe_ $reconnect entry (fixed bin(71), fixed bin(35)); 


iox_$attach_name entry (char(*), ptr, char(#*), ptr, fixed bin(35)); 
iox_ $open entry (ptr, fixed bin, bit(1) aligned, fixed bin(35)); 
iox_$close entry (ptr, fixed bin(35)); 
iox $detach iocb entry (ptr, fixed bin(35)); 
iox $control entry (ptr, char(#), ptr, fixed bin(35)); 
iox $get_line entry (ptr, ptr, fixed bin(21), fixed bin(21), 

fixed bin(35)); 


buffer ‘char (80): Sls sige sree ee Dy, as 
actually read char(n. read) based (addr (buffer) ); 
n_read fixed bin (21); 


ME = ; NDIAL_ HANDLER"; 


eall ipe $eutoff (dial_manager arg.dial_ channel, code); 
if code “= 0 then call ERROR (4); 


call convert _dial_message $return_io module ( 
event pa Ante smeseane, which channel, "", 0, eons code); 
if code “= 0 then call ERROR (5); 
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DIALING TERMINALS TO A PROCESS 


AN EXAMPLE 


call iox_$attach name (Mswiten™ iocb ptr, 
"tty nit which channel, null() ,code); 
if code “= 0 then eall ERROR (6); 


call iox $open (iocb ptr, 3, "O"b, code); 
if code “= 0 then call ERROR (7); 


Gall ioa_$ica switch (iocb ptr, "Welcome to my world. 
Please type a line and TI will echo it back."); 
call iox_$get_line (iocb ptr, addr(buffer), 80, n_read, code); 
call ioa | $ioa_ switch (ioceb ptr, "“a", actually_ read); 
call ioa $ioa_ switch (iocb_ “ptr, "Good bye"); 


call iox $control (iocb ptr, "hangup", null(), code); 
if code “= 0 then call ERROR (8); 


eall iox $close (iocb ptr, code); 
if code *= 0 then call ERROR (9); 


eall iox _pdetach_ iocb (ioeb ptr, code); 
if code “= 0 then call ERROR (10); 
return; 


Not To Be Reproduced 14-10 a ; Fi5D 


DIALING TERMINALS TO A PROCESS 


AN EXAMPLE 


ERROR:  proe eerhoes number); 
_/* Internal ‘proc to report errors */ 
del error_ number ; : 
—_ eall com_err_ (eode, ME, "Check call “i of ERROR", 
error _number ); 
“goto FINISH; on 
end ERROR; 


SHUTOFF: _ entry; 


del dial manager_ $shutoff_ dials ences (ptr, fixed bin (35)); 
del ipe_ $decl_ ev_ wait chn > entry (fixed bin (71), fixed bin (35)); 


ME = "SHUTOFF®; - 


gall ipe_ $decl ev wait chn (dial_manager_ arg. dial stantial code); 
df eode *=s 0 then call ERROR (11); 7 
-. @all dial_manager_$shutoff_dials (addr (dial_manager_ arg), code); 
-- df eode “= 0 then call ERROR (12); 
oo . Call ipe $delete ev_chn (dial _manager_arg.dial_ channel, code); 
—-. Gf eode *= 0 then call ERROR 1305, 
7 sal a 


FINISHE, Se or 7 ee Pe as. 
end SET_UP_DIAL; eo 3 
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AN EXANPLE 


@ THE PRECEDING EXAMPLE IS VERY SIMPLE AND THEREFORE HAS LITTLE 
PRACTICAL APPLICATION 


1. IT ONLY HANDLES ONE DIALED IN TERMINAL AT A TIME 


2. IT CANNOT HANDLE THE SITUATION IN WHICH THE DIALED IN 
TERMINAL SIMPLY "HANGS UP" 


3. IT CANNOT HANDLE THE SITUATION IN WHICH THE DIALED IN 
TERMINAL SIGNALS QUIT (USER HITS BREAK KEY) 


4, THE MASTER PROCESS GOES BLOCKED WHILE WAITING FOR INPUT 
FROM THE "SLAVE" TERMINAL 


@ A 10 PAGE EXAMPLE APPEARS IN APPENDIX G 


f THIS EXAMPLE SOLVES ALL OF THE ABOVE PROBLEMS 


) IT PROVIDES A STARTING POINT FOR A REALISTIC DIAL IN APPLICATION 
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DIALING OUT TO A TERMINAL 


@® STEPS INVOLVED IN DIALING OUT 
J ESTABLISH EVENT-WAIT CHANNEL 
f REQUEST ANSWERING SERVICE TO DIAL A SPECIFIED PHONE NUMBER 


1 ONE CAN CHANGE EVENT-WAIT TO EVENT-CALL CHANNEL AT THIS TIME 


) AFTER NOTIFICATION OF SUCCESSFUL DIAL-OUT, USER ATTACHES DEVICE 
AND DOES LOGICAL I/0 


@ A PRIVILEGED PROCESS (HAVING ‘rw' ON THE APPROPRIATE ACCESS CONTROL 
SEGMENT) MAY USE THE DIAL FACILITY TO DIAL OUT TO A TERMINAL 
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DIALING OUT TO A TERMINAL 


DIAL MANAGER ENTRY POINTS 


@ ENTRY POINTS USED TO DIAL OUT: 


) dial_manager $dial_out 


f REQUESTS THAT AN AUTO-CALL CHANNEL BE DIALED TO A GIVEN 
TELEPHONE NUMBER, AND, IF THE CHANNEL IS SUCCESSFULLY DIALED, 
THAT THE CHANNEL BE ASSIGNED TO THE REQUESTING PROCESS 


J THE CALLER SETS dial_manager_arg.dial qualifier TO THE 
TELEPHONE NUMBER TO BE DIALED (NONNUMERIC CHARACTERS IN 
THE NUMBER ARE IGNORED, SO THE NUMBER MAY BE SPECIFIED AS, 
FOR INSTANCE, "301/977-4292") 


{ dial_manager arg.dial_ channel IS SET TO THE EVENT-WAIT 
CHANNEL CREATED TO ALLOW THE ANSWERING SERVICE TO 
COMMUNICATE WITH THE PROCESS 


‘97 THE CALLER MAY SET dial_manager_arg.channel_ name TO A 
SPECIFIC CHANNEL-NAME OF AN AUTO-CALL CHANNEL - IF THE 
CALLER ASSIGNS THE NULL STRING TO THIS ARGUMENT, THE 
ANSWERING SERVICE WILL ATTEMPT TO ASSIGN ANY AVAILABLE 
AUTO-CALL CHANNEL AND CALLER MUST USE 
convert dial message $return_io module TO DETERMINE WHAT 
IT Is 


f dial_manager_$terminate dial out 


f REQUESTS THAT THE ANSWERING SERVICE HANG UP AN AUTO-CALL LINE 
AND UNASSIGN IT FROM THE REQUESTING PROCESS 


f ACCEPTS THE SAME INFO AS dial _manager_$dial_out 


0 HOWEVER, THE 'channel name' ARGUMENT MUST BE SUPPLIED WITH 
THE NAME OF THE AUTO-CALL CHANNEL WHICH WAS USED FOR THE 
DIAL OUT 
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‘WHAT IS IT? 


@ A SERIES OF PRIMITIVES, SUBROUTINES AND COMMANDS 


@ DESIGNED TO 
f MANIPULATE RING 1 MESSAGE SEGMENTS 


) FACILITATE PROTECTED AND ORDERED MESSAGE EXCHANGE BETWEEN AND 
WITHIN PROCESSES 


) SALVAGE MESSAGE SEGMENTS CONTAINING "DAMAGED" MESSAGES 
1 MINIMIZE WRITE/UPDATE WINDOW TIME 


1 SUPPORT CHANGE-ABLE MESSAGE SIZE 
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APPLICATIONS 


@ 1/0 AND ABSENTEE DAEMON QUEUES 
@® SUPPORT FOR MAIL AND SEND MESSAGE FACILITIES 


e USER-DESIGNED APPLICATIONS REQUIRING THE SPECIAL CAPABILITIES OF 
MESSAGE SEGMENTS _ 
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THE MESSAGE SEGMENT 


e PROPERTIES 
f ACCESSIBLE ONLY IN RING 1 (AND RING 0) 


) HAS A SUFFIX 
f ‘'ms' FOR QUEUE MESSAGE SEGMENTS 


) ‘'mbx' FOR MAILBOXES 
1 MUST BE A SINGLE-SEGMENT FILE 


) HAS AN EXTENDED ACCESS CONTROL LIST 
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THE MESSAGE SEGMENT 


@ STRUCTURE 


q HEADER 
J LOCK WORD 
1 36-BIT MESSAGE SEGMENT ID BIT ere 
f OFFSET TO FIRST MESSAGE | 
J OFFSET TO LAST MESSAGE 
d ecaiee cone 


1 SWITCHES 
] MSEG INCONSISTENT 
) MSEG HAS BEEN SALVAGED — 


0 ALLOCATION BIT STRING SAYS WHICH scoces ARE USED. 
peaanctoentzon BIT STRING) 

) MESSAGE piace ide | 

1 uwuseD BLOCK COUNT 


? = ..eAND OTHER INFO 
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THE MESSAGE SEGMENT 


J DOUBLY-THREADED LIST OF MESSAGES 


" EACH MESSAGE IS COMPRISED OF 1 OR MORE FIXED-LENGTH BLOCKS 
f EACH BLOCK HAS A HEADER CONTAINING 
f OFFSET TO NEXT BLOCK IN MESSAGE (OR ZERO) 
0 <A "FIRST-BLOCK" SWITCH 
. NUMBER OF MESSAGE BITS IN BLOCK 
| FIRST BLOCK IN MESSAGE ALSO HAS A TRAILER 


(] EACH MESSAGE TRAILER CONTAINS 
) MESSAGE BIT SIZE 
J TIME MESSAGE WAS SENT 
-] VALIDATION LEVEL OF SENDER 
J Personid.Projectid OF SENDER 
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LAYERED DESIGN 


@ TWO HIGH-LEVEL SUBROUTINE INTERFACES ALREADY EXIST FOR MANIPULATION 
OF MESSAGE SEGMENTS 


] message_segment_ FOR QUEUE MESSAGE SEGMENTS 


4 


l mailbox _ FOR MAILBOXES 


@ TWO CORRESPONDING COMMAND-SETS EXIST AS WELL 
1 FOR QUEUE MSEGS WE HAVE: 

ms _add_ name, msan 

ms _ create, mscr 

ms delete, msdl 

ms delete_acl, msda 

ms delete nene, msdn 

ms list_acl » mSsla 

ms rename, msrn 


ms_set_acl, mssa 
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LAYERED DESIGN 


f FOR MAILBOXES WE HAVE: 
mbx_add name, mban 
mbx_create, mber 
mbx_ delete, mbdl 
mbx_delete_acl, mbda 
mbx_delete_name, mbdn 
mbx_list_acl, mbla 
mbx_rename, mbrn, 


mbx_ set acl, mbsa 


® message segment _ AND mailbox_ ARE GATES INTO THE ADMINISTRATIVE RING 


2 WHICH TRANSFER CONTROL TO THE PROCEDURES queue_mseg_ANDmbx_mseg , 
RESPECTIVELY 


f queve msg_ AND mbx mseg_ IN TURN CALL MODULES IN THE. PRIMITIVE 
MESSAGE SEGMENT FACILITY . aaa 
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LAYERED DESIGN 
PRIMITIVE MESSAGE SEGMENT FACILITY 


@ THE PRIMITIVE MESSAGE FACILITY I8 COMPRISED GF MODULES WHICH 
CREATE AND DELETE SECS 
] MANIPULATE EXTENDED ACCESS 
1 MANIPULATE 'OWN* MESSAGES 
I SALVAGE NSEGS 


CONVERT MSEGS FROM A PREVIOUS FORMAT 
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EXTENDED ACCESS 


@ BOTH QUEUE AND MAILBOX MSEGS EMPLOY THESE ATTRIBUTES: 
ALLOWS USER TO ADD A MESSAGE 
ALLOWS USER ~ DELETE ANY MESSAGE 
ALLOWS USER TO READ ANY MESSAGE 
ALLOWS USER TO READ/DELETE ‘OWN’ MESSAGES 


ALLOWS USER TO DETERMINE WHETHER MSEG HAS BEEN SALVAGED AND 
MESSAGE COUNT 


@ IN ADDITION, MAILBOX MESSAGE SEGMENTS EMPLOY: 


l ow 


ALLOWS USER TO SEND NORMAL WAKEUP WHEN ADDING MESSAGE 
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MESSAGE SEGMENT SUBROUTINE SUMMARY 


@ CREATING AND DELETING QUEUE MESSAGE SEGMENTS 
message segment $create 


message segment _$delete 


@ MANIPULATING EXTENDED ACCESS 
message segment_$ms_acl_add 
message segment $ms_acl delete 
message segment $ms_acl list 


message Segment $ms_acl_ replace 


@ RENAMING 


message_segment_$chname file 


@® OPENING AND CLOSING 
message segment $open 


message segment $close 
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MESSAGE SEGMENT SUBROUTINE SUMMARY 


@ OBTAINING HEADER STATUS INFO 


message segment $check salv_ bit index 
message - segment _ $check_ salv_ bit_ file 


message segment $get message count_index 
message _ segment _ $get | message count _ file 


@ OBTAINING EFFECTIVE ACCESS 


message_ segment $get_mode_index 
message _segment_  $get mode_ file 


@ MANIPULATING MESSAGES. 


message segment $add_index 
message_ segment _ $add_ file 


message segment $delete index 
message segment $delete file 


message segment_$read_ index 
message_ segment _ , $read_ file 


essage_segment $incremental read index 
message segment $incremental read file 


message segment_ $update message index te 
message _ segment.  $update | message . file 


@® MANIPULATING ‘OWN' MESSAGES 


message segment $own_read_index 
message __ segment _ $own_ read_ file 


message segment $own_ incremental read index 
message — segment _ _ $own_ incremental read_ file 
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MESSAGE SEGMENT FACILITY ILLUSTRATIVE EXAMPLE 


EEE See 
ae Eee eee 


trans: proc: /*"{4,4,4} */ | _message_segment_: proc; /* {1,1,5} */ 
, open: entry ... ; 
: | close: entry ... ; 
trans_add: proc; get__message_count: entry ... ; 
CALLS | add_index: entry... ; 
on; | delete_index: entry ... ; 
eatin ee read_index: entry ... ; 
: pe incremental_read_index: entry ... ; 
trans_sead: proc; own__read —index: entry ... ; 
: own_ incremental _read_ index: entry ... ; 
end: end message_segment__; 
trans_count: proc; | | J ; 
: MANIPULATES 
: a 
eee Pe: >udd>F 15d>trans.ms THE 
<— MESSAGE 
ana | 11,4,1 SEGMENT 


COMMAND PROCEDURE ~ 


MESSAGE SEGMENT FACILITY 
ILLUSTRATIVE EXAMPLE | 
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Program Library Management 


Introduction ices We. oe ° 
Organization of Program Libraries. 
Naming Conventions... se ee 
A Typical Program Library. ete 

Program Library Management Tools . 


e e e e 


Installation Tools .... -« 
Library Descriptor Tools . . 
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INTRODUCTION 


@ LARGE AND COMPLEX SUBSYSTEMS REQUIRE GOOD PROGRAM LIBRARY MANAGEMENT 
TECHNIQUES 


1 THE DESIGNER MUST BE CONCERNED WITH PROPERLY ORGANIZING THE SOURCE 
PROGRAMS, OBJECT PROGRAMS, BOUND SEGMENTS, LISTINGS, AND SO ON 


f THE DESIGNER COULD DEVELOP HIS OWN LIBRARY CONVENTIONS AND TOOLS, 
BUT: 


@ CONVENTIONS AND SYSTEM=PROVIDED TOOLS EXIST FOR 


0 ORGANIZING SOURCE, OBJECT, EXECUTABLE, AND DOCUMENTATION LIBRARIES 
IN’ A CONVENIENT MANNER 


MANIPULATING THE COMPONENTS OF A USER MAINTAINED LIBRARY IN A 
CONTROLLED MANNER 


J CONTROLLING THE INSTALLATION AND DE-INSTALLATION OF. SUBSYSTEM 


MODULES IN AN ORDERLY MANNER 
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INTRODUCTION 
ORGANIZATION OF PROGRAM LIBRARIES 


@® <A USER'S PROGRAM LIBRARY FOR A GIVEN SUBSYSTEM IS GENERALLY ORGANIZED 
AS A DIRECTORY SUBTREE 


J A DIRECTORY SEGMENT, NAMED FOR THE LIBRARY ITSELF, SERVES AS THE 
ROOT or THE SUBTREE ) 


J EXECUTABLE PROGRAMS, WHETHER STAND-ALONE OR BOUND, RESIDE UNDER 
THE LIBRARY ROOT DIRECTORY 


) SUBDIRECTORIES UNDER THIS ROOT CONTAIN: 


SOURCE a EITHER INDIVIDUALLY OR IN ARCHIVE SEGMENTS 


OBJECT PROGRAMS, EITHER INDIVIDUALLY, OR (MORE GENERALLY) IN 


ARCHIVE SEGMENTS 
LISTINGS AND/OR BIND MAPS 
INCLUDE FILES 


HELP FILES 
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asta 


LIBRARY SUBTREE 


SOME 


SUBSYSTEMDIR | ‘ 


earner AS UA 


EXECUTABLE BOUND SEGS 
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object lists 


N) 1 
Oo L 
+ ( (e+ & ( ) + & & @a@ee § 
INCL SEGMENTS SOURCE ARCHIVES .. OBJECTARCHIVES SOURCE PROGRAM INFO SEGMENTS 
LISTINGS, AND/OR 
BIND MAPS 
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INTRODUCTION 
NAMING CONVENTIONS 


@ THE LIBRARY COMPONENTS MENTIONED ABOVE ARE GENERALLY NAMED ACCORDING 
TO THE FOLLOWING STANDARD NAMING CONVENTIONS: 


fi THE SOURCE SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 
| source 


s 
Ss 


) THE OBJECT PROGRAM SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 
object 


fe 
0 


f THE LISTINGS SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 
lists 
1 
L 


l THE INCLUDE FILE SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 


include 
- inel 


0 THE HELP FILES SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 


info 
INFO 
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INTRODUCTION 
NAMING CONVENTIONS 


@ NAMING CONVENTIONS FOR BOUND SEGMENTS AND CORRESPONDING ARCHIVES 


J) THE BOUND SEGMENT ITSELF IS GIVEN AN ENTRYNAME "bound 727772772", 
WHERE 2772727? IS A NAME CHOSEN BY THE DESIGNER (E.G., 
bound_command_loop_) 


J THE ARCHIVE WHICH CONTAINS THE SOURCE PROGRAMS USED TO GENERATE 
THE INDIVIDUAL COMPONENTS OF THE BOUND SEGMENT IS NAMED 
"bound_??2272??.s.archive" (E.G., bound_command_loop .s.archive) 


0 THE ARCHIVE WHICH CONTAINS THE OBJECT PROGRAMS AND WHICH WAS 
INPUT TO THE BINDER IS NAMED “bound_??77?7???.archive"™ (E.G., 
bound _command_ loop _.archive) 
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Ylist >udd>F15dw>Auerbach>user_library_’ 


INTRODUCTION 
A TYPICAL PROGRAM LIBRARY 


Directories = ji. 


sma 


tlist -pn >udd>F15dw>Auerbach>ull <-all 


user library 1 
ulT 


Segments = 3, Lengths = 4. 


re 


re 
re 


2 bound_ede_ 


1 
1 


oeoroad 


Directories = 5. 


sma 
sma 


sma 


sma 


sma 


fewd 


include 
incl 
info 
INFOQ 
lists 
1 
L 
object 
re) 
0 
source 
s 
S 


>udd>F 15dw>Auerbach>uli 
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- INTRODUCTION 
A TYPICAL PROGRAM LIBRARY 


!ls -pn source -all 


Segments = 3, Lengths = 3. 


row 1 bound cde _.s.archive 
c.pll 
d.pli 
e.pli 

row 1 b.fortran 

row 1 a.pli 


tls -pn object -all 
Segments = 3, Lengths = 4. 


rw 2 bound _cde_.archive 
¢ 
d 
e : 
bound_cede_.bind 
row 1 b 
rw 1 a 


fis -pn L -all 


Segments = 6, Lengths = 6. 


a.list 
b.list 
ee, List 
d.list 
e.list 


~ pound ede_.list 


Sie a ie Ee ke 


ZLtLLELE 
kek ek ek ed wed 
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INTRODUCTION 


A TYPICAL PROGRAM LIBRARY 


fis -pn INFO -all 


Segments = 6, Lengths = 6. 


row 1 user_library_1.gi.info 
row 1 e.info 
r WwW 1 d.info 
r W j ¢.info 
rw 1 b.info 
rw 1 a.info 


tls -pn include -all 
Segments = 3, Lengths = 3. 
1 DATABASE STRUCTURE.inel.pli 


Ww 
W 1 REC2.inel.pli 
Ww 1 REC1.inel.pl1 


33 


Not To Be Reproduced 16-8 


F15D 


PROGRAM LIBRARY MANAGEMENT TOOLS 


@ LIBRARY ADMINISTRATOR TOOLS EXIST TO PROPERLY UPDATE AND MANIPULATE 
LIBRARIES IN A STRICTLY CONTROLLED AND CONSISTENT MANNER 


@ THE MAJOR TOOLS CAN BE CLASSIFIED AS FOLLOWS: 
) INSTALLATION TOOLS © 


] PROGRAM LIBRARY MANIPULATION TOOLS 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


@® THE “INSTALLATION PROBLEM" 


2 ARISES FROM ATTEMPTS TO DYNAMICALLY INSTALL A NEW OR REPLACEMENT 
VERSION OF A HEAVILY USED SUBSYSTEM MODULE (OR MODULES) 


0 THOSE USERS CURRENTLY EXECUTING THE (NOW) OBSOLETE MODULES 
MUST CONTINUE TO EXECUTE THEM UNTIL THEY HAVE COMPLETED THEIR 
SESSION - IN ADDITION, ANY USERS WHO SUBSEQUENTLY ATTEMPT TO 
EXECUTE THE MODULE SHOULD RECEIVE THE NEW, UPDATED VERSION 


f ANY MODIFICATIONS TO THE PROGRAM LIBRARY SHOULD BE CAREFULLY 
DOCUMENTED OR LOGGED 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


@ SOLUTION TO PROBLEM: Multics INSTALLATION SYSTEM (MIS) 


J MIS SUBROUTINES ARE 


J RESTARTABLE ACROSS A SYSTEM OR PROCESS FAILURE (AS LONG AS 
STORAGE SYSTEM IS INTACT) 


q REVERSIBLE, ALLOWING FOR "DE=}jINSTALLATION" IF TROUBLE ARISES 
‘MIDSTREAM 


— MIS FEATURES 


] PLANNED AUTOMATIC RECOVERY (VIA DE-INSTALL ENTRY POINTS) FOR 
~ + ERRORS LIKE record _quota_overflow, namedup, entry _not_found 


2 AUTOMATIC DOCUMENTATION OF AN INSTALLATION 


J A COMMAND INTERFACE: update_seg 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


@ update seg IS USED TO DEFINE THE CONTENTS OF A MODIFICATION, AND TO 
INSTALE OR DE-INSTALL THAT MODIFICATION IN A LIBRARY 


A MODIFICATION IS A GROUP OF PHYSICALLY OR LOGICALLY RELATED 
SEGMENTS WHICH MUST BE INSTALLED IN A LIBRARY AT THE SAME TIME 
IN ORDER TO MAINTAIN LIBRARY CONSISTENCY AND INTEGRITY 


f SOURCE AND OBJECT ARE PHYSICALLY RELATED 


J OBJECT AND OBJECT ARE LOGICALLY RELATED 


f A MODIFICATION IS INSTALLED THUSLY: 


] THE INSTALLATION OF EACH SEGMENT IS DIVIDED INTO A SERIES OF 
STEPS (GETTING A UNIQUE ID, NAMES, AND ACL OF THE NEW AND OLD 
SEGMENTS, COPYING THE TARGET SEGMENT, ADDING TO AND DELETING 
FROM THE TARGET SEGMENT'S NAMES, FREEING NAMES ON THE OLD 
SEGMENT, ETC.) : 3 


l ONE STEP AT A TIME IS PERFORMED FOR ALL SEGMENTS OF THE 
MODIFICATION BEFORE MOVING ON TO THE NEXT STEP 


l THE EXECUTABLE SEGMENTS ARE INSTALLED LAST, AS A GROUP, AFTER 
INSTALLING THE OTHER SEGMENTS IN THE MODIFICATION (SOURCE 
SEGMENTS, ARCHIVES, ETC.) 


0 THE INSTALLATION WINDOW CAN BE REDUCED TO LESS THAN ONE MINUTE 
PER MODIFICATION, AND IS USUALLY ABOUT FIVE SECONDS 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


@ OPERATIONS PERFORMED BY update seg: 


CREATING MODIFICATIONS 
| initiate 


set_defaults 
print defaults 


| DEFINING OPERATIONS TO BE PERFORMED DURING THE MODIFICATION 
add | | | 
delete 


move 7 
replace 


J LISTING THE DEFINED MODIFICATION 
print 
list 
Q INSTALLING/DE-INSTALLING THE MODIFICATION | 


install 
_de_install 


1 CLEARING THE CURRENT MODIFICATION 


-Glear. 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


NONPRIVILEGED USERS OF update_seg SHOULD FIRST TYPE: 


initiate (wh hes J] installation_tools_ 


OTHERWISE ENTRY POINTS IN installation_tools WILL BE CALLED BY 
update _seg AND MOST USERS HAVE NULL ACCESS TO THIS SEGMENT 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


flist -first 3 
Segments = 74, Lengths = 62. 


rw 0 04/06/81.audit 
rew 1 test 
rew 1 test.pli 


fewd junk 


{list 
Directory empty: >user_dir_ dir>MED>NDibble> junk 


fewd < 
lus print defaults 


Global defaults 
ring brackets: 
1,5,5 


re & 8% 
lus initiate example -rb 4 4 4 
lus print defaults 


Defaults for >user_dir_dir>MED>NDibble>example.io 
ring brackets: . 


Hy4,4 


ACL: 
re % ,# 


Global defaults 
ring brackets: 
1,5,5 
re ® ,# ,% 
tlist -first 4 
Segments = 75, Lengths = 126. 
rw 64 example.io 
row 0 04/06/81.audit 


rew 1 test 
rew 1 test.pli 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


fus add test.pli junk>== . 


fus move test junk>== 


fus print 
Add >user_dir_dir>MED>NDibble>test.pl1_ 
2s >user dir dir>MEDD>NDibble>junk>test.pli 


Set ring brackets: 


Access control list: 


re #8 ,# : 
Names: © | | 
test.pli 
Move >user_dir_dir>MED>NDibble>test 
to 2user dir dir>MED>NDibble>junk>test 
Access control list: 
rew NDibble.MED.*# 
rew NDibbie.#*.# 
- Pw #.SysDaemon.*# 
Names: 
test 


{list -first 2 
Segments = 75, Lengths = 126. 


rw 64 example.io 
rw 0 04/06/81.audit 


flist -first 2 
Segments = 76, Lengths =: 127. 


rw 1 example.il 
rw 64 example.io 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


{print example.il 1 
INSTALLATION OBJECT SEGMENT >user_dir_dir>MED>NDibble>example.io 


Listed on: 04/06/81 0728.3 mst Mon 
Created by:. NDibble.MED.* 

Created with: update seg (MIS Version 1.5) 
Created on: 04/06/81 0727.1 mst Mon 


SUMMARY OF THE INSTALLATION: 


Add >user_dir_dir>MED>NDibble>test.pl1 

as >user_dir_dir>MED>NDibble>junk>test.pl1 
Move >user_ dir dir>MED>NDibble>test 

to >user_dir dir>MED>NDibble> junk>test 


INSTALLATION OBJECT SEGMENT HAS NOT BEEN INSTALLED. 


A DESCRIPTION OF THE INSTALLATION FOLLOWS. 


INSTALLATION DESCRIPTION: 


Add >user_dir_dir>MED>NDibble>test.p11 
as >user_dir_dir>MED>NDibble>junk>test.pli 
Set ring brackets: 


™ 


44,4 
Aecess control list: 


re # i # ,# 
Names: 7 
‘test.pli 
Move >user_dir_ dir>MED>NDibble>test 
to >user dir dir>MED>NDibble> junk>test 
Aecess control list: 
rew NDibble.MED.#® 
rew NDibble.*.# 
rw ® .SysDaemon.*® 
Names: 
test 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 


fus install | 

Beginning installation of example.io 

Error: Linkage error by upd_ring task $set{1000 
(>system_library_tools>bound mis _) 

referencing installation_ tools iset_ ring brackets 
Incorrect access on entry. 


flist -first 5 
- Segments = 76, Lengths = 127. 


rw 1 example.il 

rw 64 example.io 

rw 0 04/06/81.audit 
rew 1 test 

rew 1 test.pl! 

tewd junk 

flist 


Segments = 2; Lengths = 2. 


row 1 !BBBJKzgHHgZMDK . 
row 1 !BBBJKzgHHF jDLd 


tin [wh hes_] installation_tools_ 


tus de install 

update_ seg: The lock was already locked by this process. 

Non-fatal error encountered while locking 
>user_dir_dir>MEDONDibble>example.io. 

update seg will continue performing the de install funetion. 

Non-special target segments deleted. 

De-installation complete. 


tlist 
Directory empty: >user_dir _dir>MEDOND{bbLe> junk 


tus install 


Beginning installation of example.io 
Installation complete.. 
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PROGRAM LIBRARY MANAGEMENT TOOLS 


INSTALLATION TOOLS 


tlist 


Segments = 2, Lengths = 2. 


rew 1 test . 
re 1 test.pli 
‘flewd < 


flist -first 5 
Segments = 76, Lengths = 127. 


rw 1 example.il 

rw 64 example.io 

row O 0O4/06/81.audit 

rew 1 test.1 
!BBBJKzgHHgZM11 

rew 1 test.pli 


‘feob test.1 junk>test 


>user dir dir>MED>NDibble>test.1: (segment ,1) 


03/14781 ~1121.1 mst Sat PL/I 


i 


user_dir dir>MED>NDibble>junk>test: (segment 2) 


03/14781 1121.1 mst Sat PL/I 
The 2 segments match. 
fus list 


{dp example.il 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
LIBRARY DESCRIPTOR TOOLS 


@® THE ‘library descriptor' COMMANDS ARE A COLLECTION OF TOOLS ALLOWING 
THE SUBSYSTEM DESIGNER OR LIBRARY ADMINISTRATOR TO MANIPULATE LIBRARY 
STRUCTURES 


f ALL REFERENCE ‘library descriptors’, WHICH ARE 


f SPECIAL SEGMENTS THAT 
_f) DESCRIBE THE STRUCTURE OF LIBRARIES IN THE HIERARCHY 


l LIST THOSE LIBRARY DESCRIPTOR COMMANDS WHICH MAY BE USED 
ON THE DESCRIBED LIBRARIES 


NAME THE PROCEDURES WHICH "KNOW" HOW TO OPERATE ON THE 
DESCRIBED LIBRARIES | 
| CREATED IN A TWO STEP OPERATION 


) ASCII DESCRIPTOR SOURCE SEGMENT IS TRANSLATED INTO AN alm 
SEGMENT BY library descriptor compiler COMMAND PROCEDURE 


f alm ASSEMBLER GENERATES BINARY LIBRARY DESCRIPTOR 


0 THE COMMANDS ARE 


J dlibrary_fetch, 1f 
1 COPIES SPECIFIED ENTRIES FROM A —_— LIBRARY 
DEFINED BY THE "CURRENT LIBRARY DESCRIPTOR" INTO ae USER'S 
WORKING DIRECTORY =~ ~~ 
ACCEPTS THE STAR CONVENTION 
1 HAS SOME USEFUL OPTIONS 
) CAN TELL YOU WHERE MATCHING ENTRY WAS FOUND (long) 


) CAN BE TOLD WHERE TO PUT FETCHED ENTRIES AND WHAT TO 
CALL THEM (-into) 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
' LIBRARY DESCRIPTOR TOOLS 


f CAN COPY THE ENTIRE ARCHIVE CONTAINING THE MATCHING 
ENTRIES, AS OPPOSED TO JUST SOME OF THE ARCHIVE COMPONENTS 
(-container) 

f CAN INDIVIDUALLY COPY ‘ALL COMPONENTS OF ARCHIVES 

CONTAINING THE MATCHING ENTRIES (-components) 
J ilibrary_print 

J SELECTS PRINTABLE ENTRIES FROM A LIBRARY DEFINED BY THE 
CURRENT LIBRARY DESCRIPTOR AND WRITES THEM TO A FILE SUITABLE 
FOR DPRINTING 

1 DPRINT CONTAINS AN INDEX 

) ACCEPTS THE STAR CONVENTION 

1 USEFUL OPTIONS | 

) container 

J. -components 

f. CAN PRINT CUSTOMIZED PAGE FOOTINGS (-footer) AND FIRST 
PAGE HEADING (header) 

li . z 


f RETURNS TO THE TERMINAL STATUS INFORMATION ABOUT SPECIFIED 
ENTRIES IN LIBRARY DEFINED BY CURRENT LIBRARY DESCRIPTOR 


f ACCEPTS THE STAR CONVENTION 
9) USEFUL OPTIONS 
. -container 


1 -components 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
LIBRARY DESCRIPTOR TOOLS 


? LIKE i tsvunesiibs, BUT GENERATES A MAP FILE SUITABLE FOR 
DPRINTING 


1 USEFUL OPTIONS 
qf ~header 


f -footer 


) library cleanup, leln 


) LISTS LIBRARY ENTRIES THAT HAVEN'T BEEN MODIFIED WITHIN 
THE SPECIFIED "GRACE" PERIOD 


NH OPTIONALLY DELETES SUCH "OLD" SEGMENTS, LINKS, AND 
MULTISEGMENT FILES 


‘f ACCEPTS THE STAR CONVENTION 


J library descriptor, lds 
f PRINTS INFORMATION ABOUT LIBRARY DESCRIPTORS, AND CONTROLS 
USE OF LIBRARY DESCRIPTORS BY THE OTHER LIBRARY DESCRIPTOR 
COMMANDS 
0 RETURNS NAME OF CURRENT LIBRARY DESCRIPTOR BEING USED 


1 CHANGES CURRENT LIBRARY DESCRIPTOR 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
LIBRARY DESCRIPTOR TOOLS 


@ lib descriptor_ SUBROUTINE 


1 CONTAINS ENTRY POINTS THAT ARE CALLED BY ABOVE COMMANDS TO ACHIEVE 
THEIR GOALS 3 


1 REFERENCES THE LIBRARY DESCRIPTORS 


@ WHY ALL THIS INDIRECTION? | 
2 AVOIDS REPLICATION OF COMMON CODE IN LIBRARY DESCRIPTOR COMMANDS 


f AVOIDS MODIFICATION OF MANY, SEPARATE COMMANDS WHEN 
) A NEW LIBRARY IS ADDED 


J A NEW LIBRARY ORGANIZATION IS INSTITUTED 


f PERMITS LIBRARY DESCRIPTOR COMMANDS TO WORK ON NON-SYSTEM LIBRARIES 
WITHOUT REWRITING THEM 
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oO 


aqstd 


peonpoudey aq OL ON 


LIBRARY DESCRIPTOR SUMMARY 


THE Multics 


STORAGE HIERARCHY 


: tibrary_fotch 
COMMAND 


caus cn] 


library _info CALLS 
COMMAND —> info: 


tibrary_map CALLS 
COMMAND | map: 


tibrary_print CALLS 7 
COMMAND Ci 


library_cleanup | CALLS 
_ | COMMAND —>} cleanup: 


OOo 


VARIOUS SEARCH 
PROCEDURES 


| 


SYSTEM-PROVIDED 
LIBRARY DESCRIPTOR 


multics_libraries _ 


| MASSAGES AND/OR 
RETURNS INFO ABOUT 


tib_descriptor_ 


SUBROUTINE 


REFERENCES 


COULD ALSO 
REFERENCE 


| COULD ALSO 
REFERENCE 


SPECIFIES 


ASCII 

DESCRIPTOR SOURCE j 
SEGMENT 

.xKAd 


library _descriptor_ compiler | 


WHICH PRODUCES 


ALM SOURCE SEGMENT 
x.alm 


WHICH IS 
ASSEMBLED BY 


aim ASSEMBLER 


WHICH PRODUCES 


LIBRARY DESCRIPTOR x 


| ANOTHER LIBRARY 
DESCRIPTOR 


SPECIFIES 


IS TRANSLATED BY 


SPECIFIES 


SIOOL WOLdIuOSaa AUVHET' 


STOOL INSNSDVNVW AUVUGIT WVYDOUd 


PROGRAM LIBRARY MANAGEMENT TOOLS 
LIBRARY DESCRIPTOR TOOLS 


!list -first 1 

Segments = 3, Lengths = 80. 
row 1 handout _dese.ld 
!pr handout_desc.ld 1 
Descriptor: handout_desc; 


Define: commands; 
command: library print; 
library name: handout; 
search names: **; 
command: li; 
library name: handout; 
search names: **; 


Root: handout; . 
path: >udd>F15D>s1>handout; 


search procedure: multics library_search_ $hardcore_be dir; 


End: handout desc; 
!lde handout_desc 


flist -first 2 


Segments = 4, Lengths = 82. 
r 2 handout desc.alm 
row 1 handout desc.ld 


!alm handout_desc.alm 
ALM 
list -first 3 


Segments 5, Lengths = 83. 


re 1 handout _desc 
r 2 handout desc.alm 


row 1 handout _dese.1d 
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LIBRARY DESCRIPTOR TOOLS 


{li gw.archive 
library info: Use of star convention resulted in no match. 
While searching for entries in the library. 


Descriptor: multics libraries 
library name: online libraries. 
search name; gw.archive 


tlds set handout_dese 

ili gw.archive 

1 gw.archive | type: archive 

path: >udd>F15D>si>handout 
contents modified: 02/18/81 1648.4 system id: 34-32 

tipr gw.archive -components 

{list -first 4 

Segments = 6, Lengths = 119. 

rw 36 library.print 


re 1. handout desc 

r 2 handout _desc.alm 

row 1 handout_desc.ld 
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APPENDIX A 
AIM 


Concepts ee e& «© @© e# e © @& @ @ © © © ® ® © 8 @# #® e© © © &#® © # # 2 Aoi 
Commands and Subroutines OF oO FE Re 8; SO OS e¢ e e ® © @ 8 * @ A-3 


A-i | FI5D 


CONCEPTS 


@® SOME BASIC TERMINOLOGY AND PROPERTIES SHOULD BE UNDERSTOOD: 
f AIM IS A NONDISCRETIONARY ACCESS CONTROL MECHANISM 
fl SENSITIVITY (AS MANY AS 8) 


0 CATEGORY SET (AS MANY AS 18) 


‘Q ACCESS CLASS OF A SEGMENT IS COMPRISED OF A SENSITIVITY AND A 
CATEGORY SET 


2 ACCESS AUTHORIZATION OF A PROCESS IS LIKEWISE COMPRISED OF A 
SENSITIVITY AND A CATEGORY SET 


f RELATIONSHIPS BETWEEN AUTHORIZATIONS AND ACCESS CLASSES 


SEGS DIRS 
AUTH > ACCESS CLASS re s 
AUTH = ACCESS CLASS rew sna 


OTHERWISE null nuli 


§ SYSTEMS "NOT RUNNING AIM" USE A SENSITIVITY OF "SYSTEM_LOW" WITH 
NO CATEGORIES 
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CONCEPTS 


1 DETERMINING THE “PROCESS MAXIMUM AUTHORIZATION" 


J TAKE THE MINIMUM OF THE FOLLOWING 3: 
J PERSON MAXIMUM AUTHORIZATION ON ANY PROJECT 
(| PERSON MAXIMUM AUTHORIZATION ON THE GIVEN PROJECT 
q PROJECT MAXIMUM AUTHORIZATION | 


) A SEGMENT RECEIVES ITS ACCESS CLASS FROM THE CONTAINING DIR, NOT 
FROM THE ACCESS AUTHORIZATION OF THE CREATING PROCESS 


J A DIRECTORY'S ACCESS CLASS DEFAULTS TO ITS CONTAINING DIRECTORY, 
BUT CAN BE "UPGRADED" UP TO THE PROCESS MAXIMUM AUTHORIZATION 
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COMMANDS AND SUBROUTINES 


@ THE FOLLOWING COMMANDS AND SUBROUTINES DEAL WITH THE ACCESS ISOLATION 
MECHANISM: 


J print_auth_ names (AG92) 


) THIS COMMAND PRINTS THE SHORT AND LONG NAMES OF THE AIM 
SENSITIVITIES AND CATEGORIES SET FOR THIS SITE 


get _authorization_ (AG93) 


0 RETURNS THE AUTHORIZATION VALUE FOR THE CALLING PROCESS AS 
"bit(72)' 


2 print_proc_auth (AG92) 


f THIS COMMAND RETURNS CHAR-STRING REPRESENTATION OF THE PROCESS? 
AUTHORIZATION 


0 get_max_authorization_ (AG93) 


f RETURNS THE MAXIMUM AUTHORIZATION VALUE OF THE CALLING PROCESS 
AS THE 'bit(72)' VALUE 


| convert _authorization_ (AG93) 


_.-{) PROVIDES SEVERAL ENTRY POINTS FOR CONVERTING AN AUTHORIZATION 
- ° BACK AND FORTH BETWEEN ITS BINARY AND ITS CHARACTER=STRING 
REPRESENTATION 
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COMMANDS AND SUBROUTINES 


] hes $get_access class AG93) 
hes _ _$get_ access _ - class. , seg (AG93) 


f THESE RETURN THE ACCESS CLASS OF A SEGMENT OR DIRECTORY GIVEN 
EITHER A DIRECTORY PATHNAME AND ENTRYNAME, OR GIVEN A POINTER 
TO THE SEGMENT ITSELF 


l aim_check_ (AK92) 


J PROVIDES SEVERAL ENTRY POINTS WHICH ALLOW THE CALLER TO DETERMINE 
THE AIM RELATIONSHIP ("EQUAL™, "GREATER", "GREATER-OR-EQUAL") 
BETWEEN TWO ACCESS ATTRIBUTES (AUTHORIZATION OR ACCESS CLASS) 


 read_allowed  (AK92) 
write allowed  (AK92) 
read _ write allowed. (AK92) 


J DETERMINE WHETHER THE SUBJECT OF A SPECIFIED AUTHORIZATION 
HAS ACCESS TO READ, WRITE, OR READ-AND-WRITE AN OBJECT OF 
SPECIFIED ACCESS CLASS 


get privileges. (AK92) 


) THIS FUNCTION RETURNS THE ACCESS PRIVILEGES OF THE CALLING 
PROCESS (E.G., ipe ALLOWED, ETC.) 


FOR A DISCUSSION OF AIM, SEE CHAPTER 6 OF THE MPM REFERENCE GUIDE. 
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APPENDIX B 


Program Listings 


Page 


init admin 


user init admin 


f ¢ 


1 
S overseer . 


user rea 


proces 


t start u 


projec 


listen . 


Bei 


user init admin 


1 KRKRKLKKREKA TREE RKRKLKRFTELRKTRERARARERKERELKLEAREZAKRKRKRLKRRAERE 


& 

. : 

* Copyright (¢) 1972 by Massachusetts Institute of 
* 


* 
# 
nt ¥ 
" ' Technology and Honeywell Information Systems, Inc. * 
n # ® 
1 ERRRRRKAKHRKEHRKAREKARKLREEEKRERELE EERE EERE ER EERE LES EREE 
name user_init_admin_ 
entry user_init admin_ 
entry daemon_init_admin 
entry absentee init _admin_ 
tempd §-_ pit_ptr,po_ptr,arg(3) 


include stack header 


user init admin _: 


eppab <user_real_init_admin_>i[user_real_ init _admin_] 
tra join 
daemon _init_admin_: : 
- eppab <daemon_real_init_admin_>;[daemon_real_init admin_] 
tra join : 
absentee init admin_: 
eppab <absentee_ real init _admin_>i[absentee real _init_admin_] 
tra join = 
join: push ae . 
eppbp po_ptr prepare argument list 
spribp arg+2 
eppbp pit_ptr 
spribp arge4 
fld =2b24,dl 
staq arg 
" 
: call real_init_admin_ (po_ptr, pit ptr) 
= 
call abiO(arg) 


t call the process overseer ... always pass it the pit pointer 
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user init admin 


use _arglist: 


fld =1b24,dl1 set up argument list (1 arg) 
stag sp10 
eppbp pit ptr,* retrieve the pit pointer 
spribp spi4 
eppbp spi4 
spribp spi2 
' eppbp po ptr,*# Save pointer to process overseer 
“eppap splo ; get pointer to argument list 
short_call  bpto 
eppbp — process killing pointer 
us get a pointer to =210 whic h will blow us away 
arg 0 
even 
process killing_ pointer: 
its -2,0 
end 
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user real init admin 


/* RKKFKKKELRFRKASARARETRKELTRARLAL TERE RKFRARERRLRRAREREAARLKRERE 
% ; 


% 
/ Copyright (c) 1972 by Massachusetts Institute of 
aetabaaiea, aaa da Information ee eNensss Ine. 


ee | 


# 
# 
zs. 
* 
FeGHSEEAAERSAEREEEGEEESEESEESSSEESEEREAESSEEREE ESTERS */ 


/* This ere is alles. by user_ init_ admin _ and is the second > 
user ring program called in a newly created process. It 
initializes the I/O system and returns a pointer to the 
process overseer to be called by user_init admin_ after it 
returns. */ : | | 


user_real_init_ admin _: proc (pesceass overseer_ptr, pit ptr); 


del process_ overseer _ptr ptr; /* pointer returned to user_init_admin_ 
del pit_ ptr ptr; a pointer to pit: returned non-null only for — 
standard case of process overseer */ 


del po_ ptr ptr, /*# sotats to process overseer for process *#/ 
(type, string) char (32), = 
status bit (72) aligned, | 
code fixed bin (35), 
based _code fixed bin (35) based (ader (status)), 
pp ptr; /* Siies to PIT */ 


del (null, length, addr, substr, pointer) builtin; 


del terminate | process_ ext entry (char (*), ptr), 
sct_manager $set entry (fixed bin, entry, fixed bin (35)), 
timer _Manager $alarm_interrupt entry, 
timer _ _manager _ $epu_ time interrupt entry, 
term Signal handler_ entry, 
sus | Signal_ handler _ ~ entry, 
change wdir_ entry (char (168), fixed bin (359), 
wkp_signal_ handler_ entry, 
hes $terminate_noname entry (ptr, fixed bin (35)), 
hes $make_seg entry (char (*), char (*), char (*), 
- fixed bin (5), ptr, fixed bin (35)), 
iox_ $attach_iocb entry (ptr, char (#), fixed bin (35)), 
iox_$open entry (ptr, fixed bin, bit (1) aligned, fixed bin (35)), 
he _$user_ io ptr ext, = 
s $attach entry (char (*), char (#), char (*), char (*), 
. bit (72) aligned), . 
find_ command _Sfe_ no_message entry (ptr, fixed bin, ptr, 
fixed bin (35)), 
ics $ios quick init entry (), 
ioa_ entry options (variable); 
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#0 


user real init admin 


Zinclude pitmsg; 
Zinclude static handlers; 
Zinclude iox_modes; 


call hes $make_ seg ("", "pit", "", Q1000b, pp, code); 
/* get pointer to PIT #/ 
type = pp -> pit.outer_module; /* Get DIM name */ 
eall ios , $ios quick_ init; /* initialize syn attachments */ 


/*® now do things that need doing before working dir exists #/ 
if “pp -> pit.at.vinitproc then call find_po_and_dim; 


call change_ wdir ((pp -> pit.homedir), code); 
/* put home dir into search path #*#/ 
/* ignore code--- if no wdir we do the best we can */ 


if pp -> pit.at.vinitproc then call find_po and dim; 


/* Now set up static handlers for "“alrm", "“cput", and "term" #/ 


eall aoe manager $set (cput_sct index, 
timer _manager_ $cpu_ time interrupt, code); 
call sct_ manager_ $set Calrm_ set __index, 
timer_manager $alarm_interrupt, code); 
call set_manager $set (term_sct index, 
term_signal_handler_, (0))}3 
call sect manager ~$set (wip set index, 
wkp signal _handler_, code); 
call sct_manager $set (Susp_ set index, 
sus Signal handler _, (0)) 


return; 


find po_and_ dim: 
procedure (); 


if type = "tty * then do; 
call iox $attach_ ioeb (iox_$user of 
"tty_ -login_ channel", code 
if code = 0 then go to open; 
end; 
call iox_$attach_ iocb (iox_$user_io, 
type i: " "| pp => pit.tty, code); 
/* attach primary input/output stream */ 
if code = 0 then do; 
open: a call iox $open (iox_$user_io, 
Stream |_input_ output, "0"b, code); 
a if code “= 0 then cali login_abort ("io attach", 
“eode); 


end; 
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else do; 
string = pp => pit.tty; 
call ios $attach ("user i/o", type, 
string, ™", status); 
if based_code “= 0 then call login abort 


| ("io_attach", based code); 
end; 


pit ptr = pp; 


call find-command_$fe_no message 
(addr (pp -> pit. login_ responder), 
length (pp => pit. login_ responder), po_ptr, code); 
if code “= 0 then do; 
call ioa ("Could not find specified initial 
at, pp => pit.login_responder) ; 
call login_abort ("no | initproc", code); 


“~ 


\cprocedure: 


end; 
process overseer_ptr = po _ ptr; 
return; 
end /* find _po_and_dim */; 


login_abort: proc (why, fatal_code); 
/* this procedure logs out the process with a special 
message indicating that an initialization error occurred */ 


del why char (*); /* reason we can't go #*/ 
del fatal_code fixed bin (35); /* code indicating fatal error */ 


del 1 term structure aligned static, 
2 version fixed bin init (QO), /® version of structure *®/ 


as we oS —S 


2 status_code fixed bin (35); /* fatal error code */ 


status_code = fatal_code; 
_/* transmit code to terminate routine *®/ 
call terminate process. (why, addr (term | structure) ); 
/* terminate the process */ 
end login abort; 


end user_real_init_admin ; 
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process overseer 


fE KRHAKRKRELKKRERERARELRERL ELLE RE KK KRRERLKRKELKKRLRETEARKE 
% 


Copyright (c) 1972 by Massachusetts Institute of 
Technology and Honeywell Information Systems, Inc. 


mM we MK om 


% 
# 
# 
Pt : P 
EERE EEEEEEEEREREE ER EE REESE RERERREAERAERERERERERRERERER © 


process overseer _: proc (pit _ptr); 


/* process overseer is the standard process overseer on the system. 
It has four responsibilities: 


setting up an unclaimed signal handler, otherwise known as an any_ other 
handler. This handler catched otherwise uncaught conditions. The 
supplied handler, default _error_handler -$wall prints any message provided 
for the error condition, establishes a condition wall, and calls the 
listener to get a new listener level. A condition wall is just another 
any other handler; this intercepts conditions that might otherwise be 
caught by other handlers present on the stack. 


setting up a static handler for the mme2 condition. The mme2 condition 
is raised when the mme2 instruction is executed. It is used by debug 
to establish breakdots. The handler transfers control to debug when 
the condition is signalled. 


allowing the ™,." excape to command query. This is enabled by calling 
command query $set_cp excape with the appropriate bits. 


finding the start _up.ec. It looks in the homedir, projectdir, and 
finally >se1 to try to find it. It ends by calling listen_ with "ec 
Start _upName" as the initial command line. 


The code is written for time rather than space efficiency, so that 
operations that might look prettier in ado loop are done with inline 
code. */ . 
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/* Automatic #/ 


del initial _command_line char (104) var init (""); 

del pit_ ptr ptr; 

del code fixed bin (35); 

del unaligned homedir char (64) unaligned based 
(addr (pit ptr -> pit.homedir)); 

del be fixed bin (24); 

del entry_type fixed bin (2); 

del first_ process bit 3 


/*® Constants *y 


del process _type (0 : 3) character (12) varying internal 
static options (constant) initial ("initializer", "interactive", 
"absentee", "daemon") ; 
del down_sc1 char (4) internal. static options (constant) init (">sc1"); 
del start up dot ec char (11) internal static options (constant) 
init ("start_up.ec"); 
/* Entries */ 


del hes | $terminate_ noname entry te: fixed bin (35)); 

del condition_ entry (char (*), entry); 

del command query_$set_cp escape_ enable entry (bit (1) aligned, 
bit (1) aligned); 

del listen_ ext entry (char (*) var); 

del default error handler _$wall entry; . ; 

del hes $status minf entry (char (*), char , fixed bin (1), 
fixed bin (2), fixed bin (24), fixed bin (35)); 

del sct_manager_$set entry (fixed bin, ptr, fixed bin (35)); 

del ~ process_ overseer $mme2_fault_handier. entry (ptr, char 
ptr, ptr, bit (1)); 


/* External variables */ 

del iox_$user_output ptr ext; 

/* Builtins */ — 

del (codeptr, diviae, nult; rtrim) builtin; 


Zinelude pitmsg; 
Zinclude static handlers; 


/®set up the unclaimed signal handler #/ | 
call condition_ ("any other", default_error_handler_$wall); 


/* turn on mon */ 
call command_query $set_cp_ escape_ enable ("1"b, (""b)); 


first process P (pit_ptr -> pit.n_processes = 1); 
/* see if new_proc or login */ 
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if * pit_ptr -> pit.at.nostartup then do; 
~/* start_up is allowed */ 
initial command __ line = "exec com "; 


/* First try homedir */ 


call hes $status minf (unaligned. homedir, 
Start_up dot_ec, 1, entry type, be, code) ; 


/*® note that we assume any error is cause to look elsewhere to 
give best chance of success */ 


if code = O & entry type = 1 then 
initial_ command_ line = initial _command_line {| 
rtrim Cpit_ ptr => pit. homedir); 


/* now try projectdir */ 


else do; 
call hes $status minf (">udd>" jj 
rtrim (pit_ptr -> pit.project), | 
start _up dot_ec, 1, entry type, be, code); 


if code = 0 & entry type = 1 then 
initial_ command _ line = initial command line }} 
"Sudd>" {{ rtrim (pit ptr -> pit.project); 
else do; 
call hes $status minf (down_sel, 
start_up_ dot_ec, 1, entry_type, be, code); 
-if code = 0 & entry type = 1 then 
initial _command_line = 
] 
i] 


initial_ command _ line ji dowmcsct: 
else do; 
initial_ command_ Line = ">; 


goto no_ . start up; 
end; 
end; 
ends 


initial command_line = initial_command_line [tj 
initial command line = initial_ command_ line }{} 
start Up _ dot_ ec; 
/* the piecemeal assemble makes faster code */ 


a ue 


if first process 
then initial command line = 


initial command line }{} " login "; 
else initial command line = 
initial _command_line i+ “ new_proc "; 


initial command_ line = initial command _ line 
H a 


! process type (pit_ptr -> pit.process type); 
end: /# the block that checked pit.nostart#/ 
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process overseer 


no_ start_up: 
eall hes $terminate_ noname (pit_ptr, code); 


/* set up the mme2 handler */ 
/* this is done here rather than in xxx_real_init admin _ so that 
| process overseers for limited subsystems can leave it out */ 


call set manager _ $set: (mme2_set_index, 
- eodeptr Cprocess _ overseer _$mme2_ fault_handler_), code); 


do while ("1"b); ; 
call listen_ (initial _command_line); 
end; | 


return; 


mme2 fault handler_: entry (mep, cname, cop, infop, cont); 
del Tmep ptr, /* to machine conditions */ 
ename char (#), /* name of condition being signalled */ 
cop ptr, 
infop ptr, 
cont bit (1)) parameter ; 


del debug$mme2_fault entry (ptr); 
call debug$mme2_ fault (mep); 
cont = "O0"b; /*- do not continue searching foe: handlers. */ 


return; | 
end process overseer _; 
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SR RRERAEREKLELRERKETFLEALLATERKRKRKAK AA RKELEEARAEKLEKKLEE 
% ; 


Copyright (¢) 1972 by Massachusetts Institute of 
Technology and Honeywell Information Systems, Inc. 


we KR OK Ke 


# 
% 
3 
# 
% . 
RKLKELKKALESTRRKE LARTER A LARK EKTLLRKARLERKAELRRERRKKKRERKR * / 


project_start_up_ 
procedure (pit, ptr); 


del pit_ptr ptr; 

del initial command_line char (256) varying; 
del listen entry (char (*) var); 

del terminate process entry (char (*), ptr); 
del com_err_ entry () options (variable) ; 

del ioa | $ioa_ switch entry options (variable) ; 
del any_ ’ other handler entry variable; 

del any_ "other _ condition; 

del (length, null, unspec) builtin; 


@include’ iox_dels; 


any_other handler = error_handler; 
on any_other call any_other_ handler; ; 
/* Set up any_ other handler outside the begin block */ 


begin options (non_quick); 


del saved_cl_ intermediary entry variable; 
del home_dir char (168); 
del project _dir char (168); 

del mme2_ handler ptr; 

del saved _mme2_ handler ptr; 

del ps ec cl character (256) aligned; 
del code fixed bin (35); 

del be fixed bin (24); 

del entry_type fixed bin (2); 

del first process bit (1); 

del (first_ec_arg, second _ec_ arg) char (12); 
del waii entry entry variable; 


del process type (0:3) character (12) 
: internal static options (constant) initial 
("initializer", "interactive", "absentee", "daemon"); 
del down_sc1 char (19) internal static 
options (constant) init (">system_control_ dir"); 
del start_up dot_ee char (11) internal static 
options Ceonstant) init ("start_up.ec"); 
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del cu_$cp entry (ptr, fixed bin (21), fixed bin (35)); 
del convert status code_ entry (fixed bin (35), 
char (8) aligned, char (100) aligned); 
del change wdir_ entry (char (168), fixed bin (35)); 
del hes $make entry entry (ptr, char (*), char (*), 
entry, fixed bin (35)); 
del hes $terminate noname entry (ptr, fixed bin (35)); 
del command query $set cp escape enable entry 
(bit (1) aligned, bit (1) aligned); 
del default _error_ handler _Swali entry; 
del hes $status minf entry (char (*), char (#), 
fixed bin (1), fixed bin (2), fixed bin (24), 
fixed bin (35)); 
del sct_manager_ $set entry (fixed bin, ptr, 
fixed bin (35)); 
del sct_manager | $get entry (fixed bin, ptr, 
fixed bin (35)); 
del process overseer _$mme2_fault_handler 
entry (ptr, char (#), ptr, ptr, bit (1)); 
del cu_$set_cl_intermediary entry (entry); 
del cu | $get_ el _intermediary entry (entry); 


del command_error condition; 


del (addr, codeptr, length, null, rtrim, unspec) 
builtin; 


include pitmsg; 
Zinclude static handlers; 


home dir = pit_ptr -> pit.homedir; 
project _dir = user_dir dir>™ |} 
rtrim (pit_ptr => pit.project); 


call set manager $get (mme2_sct_index, 
saved |_mme2 handler, (0)); 


call-hes $status_ minf (project dir, 
"project_ start , up.ec™, 1, ~entry_ type, be, code); 
“(entry _type = 1 & code = 0) 

one call ‘abort_handler (rtrim (project_ dir) {i 


">project_start_up.ec was not found or is not a segment. ware 
- @ode); 


call change wdir_ (project dir, code); 

if code “= 0 

then call abort_handler : 
("Could not set working directory to project directory.", code); 
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first_process = (pit_ptr -> pit.n_processes = 1); 
if first _ process 

then first_ec arg = “login"; 

else first_ec_ arg = “new_proc"; 


second _ec_ arg = process type (pit ptr -> pit.process type); 

call hes $make_entry (null (), "default_error_handler_", 
"wall", wall_entry, code); 

if code “= 0 

then wall_entry = default_error_handler_$wall; 

any_other_handler = wall _ entry; 


call cu | $get_cl_ intermediary (saved cl intermediary) ; 
call cu | $set_ cl _intermediary (error_ handler); 


on command error call com_err_handler; 
/* die on com_err */ 


ps_ec cl = “exec com ™ {} rtrim (project dir) {} 
">project_start_up " || rtrim (first_ec arg) 1} 
nom ott rtrim (second_ ec arg); 


call cu_$cp (addr (ps_ec_¢cl), 
length (rtrim (ps ec 613), (0)); 


_ revert command_error; 
call cu_$set_cl_intermediary (saved_cl_ intermediary); 


. call change wdir_ (home dir, code) ;, 
if code “= 0 
then call com_err (code, "project _start_up , 
"Could not set working directory to “a.", home_ dir); 


call command query $set_ cp escape enable ("1"b, (""b)); 


if “pit_ptr -> pit.at.nostartup 
then do; 
initial command line = "exec com "; 
call hes $status_minf (home dir, 
start_up dot ec, i, entry type, be, code); 
if code = 0 & entry_ type = 1 
then initial command _ line = 
initial_ command _ line }! rtrim C(home_dir); 
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else do; 
eall hes $status minf (project dir, 
start_up_ dot_ec, 1, entry _ type, be, code); 


if code = 0 & entry. type = 1 
then initial command line = 
initial_command_line’{{ project dir; 
else do; 
call hes $status | ‘minf (down sel, 
start_up dot ec, 1, entry type, 
be, code); 
if code = 0 & entry type = 1 
then initial command line = 
initial _command_line {{ down_sc1; 
else do; 
initial command line ae Es 
- goto. no_start_up; 


end; 
end; 
end; 

initial _command_line = initial_command_line jj ">"; 
initial_ command _ line = initial_ command _ line {i 

start up dot ec; 
initial_command line = initial_command_line jj " " {j 

first_ec _arg; me 
initial_command line = initial_command_line {i " " {} 


second ec arg; 
end; 


no start_up: . 28 _ 
eall hes $terminate_noname (pit_ptr, code); 
call sect manager $get (mme2 sct index, mme2 handler, (0)); 
if mme2 handler = saved_mme2_handler 
then call set _ Manager _ $set (mme2_ sct_index, codeptr 

(process overseer _$mme2_fault_ handler _), code); 

end; 

call listen (initial_command_line); 

do while ("7"b); 
eall listen_ Goh Fae 

end; 

return; 


com_err_handler: 
procedure; 
Zinclude condition_info_header; 
Zinclude condition info; 
Zinclude com_af_error_ info; 
declare 1 CI aligned like condition info; : 
declare find condition info entry Tpointer, pointer, 
fixed binary (35));— 
declare code fixed bin (35); 
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unspec (CI) = ""b; 


call find_condition_info_ (null (), addr (CI), code); 
“if code “= 0 
then call abort_handler ("Can't get error message.", code); 
call ioa $ioa_ switch (iox $error output, "*a", 
CI.info ptr -> com_af_error_ info. info String) ; 
| call abort_handler ("Error in project start up.", 0); 
ends 
error handier: 
entry; 


call abort_handler ("Error in project start up.™, 0); 


abort_handler: 
proc (reason, code); 


del code fixed bin (35); 

del reason char (*); 

del 1 tern_ structure aligned, 
2 version fixed bin init (0), 
2 status code fixed bin (35); 


status code = code; . 

call ioa $ioa_ switch (iox __$error_output, reason); 

call terminate process __ (Tinit error", addr (term EPePUeE nents 
end; 


end project start_up ; 
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/* RAREKRALRRLEAREEKKLRERKLARELARKREET RL KRARKLTKERERARKARRARKKERKRE 
% 


Copyright (c) 1972 by Massachusetts Institute of 
Technology and Honeywell Information Systems, Inc. 


Mom Me ok Me ok 


# 
# 
% 
% 
# : 

RHHRKRLREKAALA REALL ARLE AES ESA LAER AKA TELA RARE RL LE RE %/ 


listen_: procedure (initial _command_line); 


/* Multics Listener #*/ 
del iox_$user_input ptr ext static; 
del iox_ $user_io ptr ext static; 
del (buffer ptr, 
read ptr ptr, 
dummy_ ptr ptr, 
pet internal static initial ee, 
old_sp 
) pointer aligned; 


del (input_length, buffer_length) fixed bin (21); 

del total_input length fixed bin (21); 

del entry, /* 0->$listen_, 1->$release_stack */ 
i fixed bin aligned; 

del code fixed bin (35) aligned; 


del initial_command_ line char (*) var, 
/* first command line to be executed */ 
command line char (input_length) aligned based (buffer, _ ptr); 


del spno bit (18) aligned, /* used te store stack segno #/ - 
(should_restore attachments, 
(first, /* "1"b means control structure not initialized */ 
quits not_enabled) int static init ("1"b) 
) bit (1) aligned; 


del 1 x based (buffer ee aligned, 
2ch (0: 09536) char (1) unaligned; 
del 1 label _var aligned based, /* overlay for a label */ 
2 target ptr, /* target of entry/label variable */ 
2 stackp ptr; /® stack offset of entry/label variable */ 
del et aligned, /* automatic structure containing control info */ 


prev_ptr ptr, /* ptr to last listener stack frame (if any) "y, 
release all label, /* label in "top" level to release to */ 
release label, /* label to release to */ 
new_release label, /® label next invocation is to release to ¥/ 
start label, /* label for start command #/ 
flags aligned, 
3 dont_restore bit (1) unal, /* "1"b causes io attachments 

not to be restored on start #/ 


MMM fo fo fo — 


Not To Be Reproduced Be=15 F15D 


iisten_ 


3 pad bit (35) unal, 


2 frame fixed bin, /* stack frame of current invocation */ 
2 level fixed bin; /* level of current invocation (from 1) */ 


del i bet aligned based (pct) like ct; 
_del ios_signal_ entry (char (32) aligned, fixed bin (35)), 
iox $get_line entry (ptr, ptr, fixed bin (21), fixed bin (21)) 
returns (fixed bin (35)), 

iox_$control entry (ptr,char (*), ptr) returns (fixed bin (35)), 
com_ err_ entry options (variable), 
eu_$ep ext entry (ptr, fixed bin (21), fixed bin (35)), 
cu | $ready_ proc ext entry (), 
cu_$grow_ stack frame entry (fixed bin (21), ptr,fixed bin (35)), 
get system free area_ entry returns (ptr), 
cu_$stack_ prema: ptr ext entry () returns (ptr); 

del (addr, 
baseno, 
divide, 
fixed, 
length, 
min, 
null, 
ptr, 
rel : 
) builtin; 

del cleanup condition; 

del 


error_table $long record ext static fixed bin (35); 


Binclude ‘stack_ frame; 
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/* Establish this frame as the "topt of the listener frame thread, 
so that this frame cannot be "released" ‘around. #/ 
entry = 0; . 
go to re_ enter; 


 f* Entry called after processing quit or unclaimed atenat / 
se TOLEASE stack: entry Cshould_ restore attachments) ; 


entry = 1; 


yt Save pointer ‘to previous Listener control taromation.. save return 
\¢ 
point for subsequent invocations of the > listener, 
and initialize switches #/ 
re_enter: . 
if first then do; /*® no previous invocation to work from */ 
et.prev_ptr = null; 
| et.level = 1; /* this is first invocation ¥/ 
sp 2 eu | $stack frame ptr (); /* find stack frame */ 
: spno = baseno Usp) ; 7*® get segno for comparing */ 
i= 0; 


_ do. while (baseno (sp -> stack_ frame. prev_sp) = spno); 
oo Ge ile 15 4 


Sp = Sp => stack” frame. prev_sp; 
end; a 
Ob. frame = Ls 
end; | | 
else do; /*® can: ‘use. info from previous invocation */ 
et.prev_ ptr = pet; a 
et.level = bet.level + 1; eh 4k bn A 
old_sp = addr (bet. start) -> label var. stackp; 
“/*® find previous frame #/ 
sp = cu_$stack frame ptr ();: 
is bet. frame; 
do while (sp “= old sp); 
/*® find number of intervening frames */ 
| izsi-+13 
oo . $p s sp. 2 ereck frame.prev_ SP; 
end; 
ct.frame = i; 
ends | 


/* fill in labels for release and start */ 
- . if (entry = 0) | first then do; 
-  @t.erelease aii, 
et.release, 
et.new release = readyt; — 
first = "0"b; 3 
end; 
else do; be of 
/® will want to release to invocation before this one */ 
et.release all = bet.release all; /* dont change it */ 
et.release = bet. new_ release; 4 
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ct.new release = readyt; 
end; . 
et.start = start _return_point; 


pet = addr (ct); 
/* nave finished getting info from old frame */ 


et.flags.dont_restore = "0"b; 


/® set ptrs to current control info and to buffer 
in which to read in command line */ 
buffer_length = 32; /* start with 128 char input buffer */ 
call cu_$grow_ stack frame (buffer_length,buffer_ptr, code); 
/* get storage for initial puffer */ 


/* Establish cleanup procedure to restore control structure thread */ 
on condition (cleanup) begin; 
pet = bet.prev_ ptr; /* pop structure of interest */ 
if pet = null then first = "1"b; 
end; 


/® Check for entering via "release stack" entry without having first 
entered via "listen_". This can . happen, e.g., if user takes fault 
before standard process overseer calls listen_. If this happens, 
enable quits. *7 = 

if quits not_enabled then do; 

quits not enabled = "OND; 
code = iox $control (iox_$user_io,"quit_enable",null); 
end; 
/* If called at the listen entry, set up initial command 
line and enable quits *7 
if entry = 0 then do; 
if initial command line *= "" then do; 

if length (initial_command_ line) > 
buffer _length * uthen do; 

call com_err_ (0, "listen eur 

"Initial command line is too long."}} 

"Max=“d chars.",buffer_length®4); 

go to readyt; 
ends 
input_ length = length (initial command tine); 
command _ line = initial command_ lines 
total _input length = 03; 
go to CALL CP; 

end; 


end; 
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/* SEEKER EEEREEEERESERESTART OF BASIC LISTENER LOOP##### #28888 #7 


/* Call the "ready procedure", #/ 
readyt: call cu_$ready proc (); 


/* Read the next command line */ 
readnew: read ptr = buffer_ptr; 
total _input_ length = 0; 
| /* extra input line character count */ — 
read: 
| code = iox $get line (tox _ $user_input, read ptr, 
buffer_length*4-total_input_length,input length) ; 
if code “= 0 then do; 
if code “= error_table $long record then 
call ios _ signal ("user input", sede) 
else do; 
if input Léngth ar 
buffer_Tength * 4 = total input length 
then goto CALL CP; 
_e¢all cu_$grow_ stack frame (buffer_length, 
dummy ptr, code); /* double size of buffer #/ 
buffer_length = buffer length + buffer_length; 
read ptr = addr (read ptr -> ch (input length)); 
total _input length = total _input_ length + 
input_ pene ch: 
end; | 
goto eaG 
end; 


CALL CP: call cu cn Coutter ptr, ‘tobe eaapues length + aupees length, 
code); . 
if code = 100 then go to readnew; 
/* ignore null command line */ 
go to readyt; 


/8 RERHRRARRKREREZEEND OF BASIC LISTENER LOOPHRREARERRERERESERE %/ 
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start_return_point: /* start command goes here */. 
if ct.flags. dont restore then 
should restore_ attachments = "0"b; 
pet = bet. prev_ ptr; 
return; 


get_pet: entry (ct_ptr); 
del ct_ptr ptr; 


/* Return pointer to control structure #/ 
et ptr = pet; 
return; 


get_level: entry (Gievel _no, frame_no); 
/* return command level number and stack frame number of caller's 
caller *#/ 


del (level_no, frame_no) fixed bin; 


if pet = null then do; /* no previous invocation */ 
level_ no = Q; 
old_sp = ptr (addr (old_sp), 0) => 
: stack_ header .stack begin_ ptr; 
/* in case we're not in highest ring */ 
frame no = 0; 
end; 
else do; /*® count only up to previous listener */ 
evel. no = pet => bet.level; 
old_sp = addr (bet.start) -> label _var.stackp; 
frame no = bcet.frame; 
end; 7 


sp = cu_$stack_frame_ ptr () => st ack | frame.prev_sp => 
stack frame.prev_sp; Sage 
/* want frame no o of caller's caller */ 
do while (sp “s old_sp); 
frame no = = fratie_ no + 1; 
sp = Sp => stack_ frame.prev_ sp; 
end; 
return; 


get_area: entry returns (ptr); | 
return (get_system_free_area_ ()); 


zinclude stack_header; 


end; 


Not To Be Reproduced B-20 F15) 
(End Of Topic) 


| APPENDIX C 


Encoding of Channel Names 


Page 


Ci | F15D 


= ae, 


\. 


The name used to designate an MCS communications channel is a character 
string of up to 32 characters. The name is composed of components 


separated by periods, where each component represents a level of 


multiplexing. the first two components identify the physical channel 
on an FNP; further components (if present) identify the subchannels of 
a concentrator (such as a VIP 7700 controller). 


Format of physical channel name: The physical channel name (which 
corresponds to the old-style name of the from LLYXXX) has the following 
format: 


F.ANSS 
where: . 
: is an FNP identifier (a, b, c, or d) 
A is an adapter type (h for an HSLA channel, 
1 for an LSLA channel) 
N is the number of the particular adapter 
(0-2 for an HSLA, 0-5 for an LSLA) 
ss - | is the decimal number of the subchannel on the 
. specified adapter. 
Examples: 
Name Description Old form 


a.1000 FNP a, LSLA 0, subchannel 0 ttyo0o00 
a.h108 FNP a, HSLA 1, subchannel 8 tty708 
b.h016 FNP b, HSLA 0, subchannel 16 ttyG16 


Multiplexed channels: The format of the additional components of the 
names of subchannels of a concentrator or "multiplexer" depends on the 


- particular multiplexer; it may be a station id, or a sequential number, 


ete. For example: 
Name Description 


b.hO16.01 FNP b, HSLA 0, subchannel 16, 
concentrator subchannel 7 


b.h016.09 same physical channel, concentrator 
subchannel 9 


ARPANET channels: The names of ARPANET channels are of the form netXXX 
for user _ telnet channels or ftpXXX for file-transfer channels, wnere 
XXX is an arbitrary 3-digit number. 
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The following segments set up the environment such that students may 
complete the interprocess communication workshop. Note inipe driver.pli 
the call to get_userid_. For this call to successfully return, it is 
required that your instructor obtain read access to 2sci>answer_ table. 


ipe_ report: proc; 


del i fixed bin, 
get _wdir_ entry returns (char (168)), 
stud_ptr ptr, 
ioa entry options (variable), 
hes $initiate entry (char (#), char (#*), char (*), 
fixed bin (1), fixed bin (2), ptr, fixed bin (35)), 
code fixed bin (35), . 
clock entry returns (fixed bin (71)), . 
date time entry (fixed bin (71), char (*)), 
my time char (24); 


del 1 stud_ipe based (stud_ptr) aligned, 
2 index fixed bin, 
2 studs (0 refer (index)), 
(3 codes char (8), 
3 name char (22), 
3 proj char (9), 
3 time char (163) unal; 


call date time (elock_ (), my time); 
call hes $initiate (get_wdir_ (), "ipe status", "", 
0, 1, stud _ptr, code); 


call ioa ("REPORT FOR F15D WORKSHOP #3 “a”, my time); 
call ica ("°3/ user id time*/™): 
do i = 1 to index; - . 
if name (i) *s "™" then 
call ioa ("*a.°a “al 
~ “name (i), proj (1), time (1)); 
end: 


end ipe report; 
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del 


del 


del 
del 


del 
del 


del 


del 
del 


Not 


driver: proc; 


send_mail_ entry (char (*), char (#), ptr, fixed bin (35)), 

get _wdir_ entry returns (char (168)), | 

hes $make_seg entry (char (*), char (#), char (*), fixed bin (5), 
ptr, fixed bin (35)), 

hes $wakeup entry (bit (36), fixed bin (71), fixed bin (71), 

fixed bin (35)), 

ipe_ $create_ev_ ehn entry (fixed bin (71), fixed bin (35)), 

ipe | ~$decl_ev_call_chn entry (fixed bin (71), entry, ptr, fixed bin, 
fixed bin (35)), — 

get process id entry réturns (bit (36)), 

(ioa_, com_err_) entry options (variable), 

get_userid_ entry (bit (36); char (*), char (#), fixed bin, fixed bin, 
fixed bin (35)) 

iox_ $control oie (ptr, char (#*), ptr, fixed bin (35)), 

date time_ entry (fixed bin (71), char (*)), 

clock entry returns (fixed bin (71)), 

unique bits entry returns (bit (70)), 

unique_chars_ entry (bit (#)) returns (char (159); 


1 send _ mail info aligned, . 
2 version fixed bin init (1), 
2 sent_from char (32) aligned init ("Mr. Wonderful"), 
2 switches,;—-----—- 

(3 wakeup bit G1) init ("1"b), 
mbzi bit (1), 

always_add bit (1) init ("1"b), 
never add bit (1) init ("0"b), 
mbz2 bit (1), 

acknowledge bit (1) init ("0"b), 
mbz bit (30)) unai; 


WI) I) GI OW) td 


congrats char (40) internal static options (constant) 

init ("Congratulations - mission accomplished!!"); 
ipe_status_full_msg char (66) internal static options (constant) init 
("Instructor's table has overflowed. Please notify him apices alles 
destination char (32); | 
code fixed bin (35); 


1 set_up based (su_ptr), 
2 my_pid bit (36), 
2 my_chid fixed bin (71)3 


me char (10) init ("ipe_driver") static options (constant); 


event_info based (ei_ptr), 
channel _ id fixed bin (71), 
message fixed bin (71), 
sender bit (36), 

origin, 

3 dev_signal bit (18) unal, 
3 ring bit (18) unal, 

2 data EZPPe ptr; 


MM NN 
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del (su_ptr, ei_ptr, sptr) ptr; 
del iox _ $user_ io ext ptr; 
del error_ table . $invalid_channel ext fixed bin (35); 
del stringO static fixed bin (71); 
del string! char (8) based (sptr), 
string2 char (8) based (mptr); 
del mptr ptr; 
del person char (22),. 
project char (9), 
(type, anon) fixed init (0) bin, 
Stud_ptr static ptr; 


del 1 stud_ipe based (stud_ptr) aligned, 
2 index fixed bin 
2 studs (0 refer (index)), 
(3 codes char (8), 
3 name char (22), 
3 proj char (9), 
3 time char (16)) unal; m 


del i fixed bin; 


/* Set it up */ 
call hes $make_seg (get_ wdir_ 0, "channel info", "", 10, 
| su_ptr, code); 
eall ipe $create_ -ev_chn (my _chid, code); 
if code “= 0 then do; 
| eall com_err_ (code, "ipe driver"); 
return; 
end; . 
my_ pid = get_process id_ (); 
eall ipe_ $decl ev_cail_chn (my_ echid, wakeme, null (), 0, code); 
if code “= 0 then do; 
call com_err_, (code, “ipe_ driver"); 


ends 
call ioa ("End *a$* a", me, me); 
/* TITTirritiititiiiitiiiiitititiittitiireriirrirritriririttirt rity i / 


del timer_manager_ eanees entry (fixed bin (71), bit (2)); 

do while ("1"b); 
call timer manager_$sleep. (900, "11"b) 5 /* 15 min. #/ 
end; : 
return; 


/* Come here when wakeup received */ 
wakeme: entry (ei_ptr); — 


call hes $make_seg (get_wdir_ (), "ipe_ status", "", 10, 
stud_ptr, code); 7 
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if stud_ptr = null () then do; 
call com_err_ (code, "ipe | driver"); 
return; 
end; 
call get userid_ (sender, person, project, type, anon, code) 
if code “= 0 then do; , 
e@all com err (code, "ipe driver", | 
"Need 'r' access on Jse1>answer _table"); 
return; . 
ends 


eall oa (mA wakeup from “a.*a was just received.", person, 
| spelen? /* But that does not imply he'll wake me 
up pats with the peceer: reversed msg */ 
mptr = addr (message); = 
do i = 1 to 250 while (eodes (1) “s "*); 
_ | £F string2 = codes (i) then eon got ones. 
end; . . 


if i = 251 then do; 
eall com_err_ (0, “ipe driver", 
- fable In the segment ‘ipe_ status' is full. 
"System will not function properly."); 
| destination = rtrim (person) jj "." {] rtrim (project); 
z . - @all send_mail (rtrin (destination), ipe_ Status_ full _msg, 
7 addr (send_mail_info), code); os 
. if code “= 0 then do; | 7 ON 
Renee F ) call com_err_ (code, Nipe driver", "Bad call to send_ma._/ 
' occurred while trying to complain about full table in "ipe_ status’. t); 
retur 5 
end; 
return: 
end; 


sptr = addr (string0); /*® Overlay string1 onto stringO #/ 
string! = substr (unique _chars_ (unique bits. ()), 8, 15); 
_ index = index + 1 /#* index reflects the true size of 
Stud ipe.studs array */ 
codes (index) = reverse (string); = 
call hes $wakeup (sender, message, string0, code); 
if code “= 0 then do; , 
-  @all com_err_ (code, “ipe driver"); | 
return; t ee ‘ 
end; . 
-. goto finis; 


got_one: | 
name (i) = person; 7 2 ® 
proj (i) = project; 
eall date time_ (clock (), time (i)); 
call ioa  ("*a.*a completes assignment", person, project); 
destination = rtrim ppercondd-: "iirtrim (project); 
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eall send_mail_ (rtrim (destination), congrats, 
addr (send_mail_info), code); 
if code “= 0 then do; 
call com err (code, "ipe driver", "Bad call to send mail "); 
return; ~~ ~ a ~ 
end; 


finis: 


end ipe driver; 
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init _ipe: proc; 


del get _wdir_ entry returns (char (168)); 
del 1 stud_ipe based (stud_ptr) aligned, 
2 index fixed bin, 
2 studs (250), 
(3 codes char (8), 
: name char (22), 
3 proj char (9), 
3 time char (16)) unal; 
del hes $make_seg entry (char (#), char (#), char (*), 
fixed bin (5), ptr, fixed bin (35)); 
del hes $add_acl entries entry (char (*), char (#), ptr, 
fixed bin, fixed bin (35)); 
del + seg_acl aligned, 
2 access name char (32) init ("®.F15d.#"), | 
2 modes bit (36) init ("1"b), 
2 zero_pad bit (36) init ("OMD), 
2 status code fixed bin (35); 
del code fixed bin (35), 
ioa_ entry options (variable), 
stud _ptr ptr, 
i fixed bin; 


call ioa_ ("Begin init_ipe"); : 

call hes $make_seg (get _wdir_ O, “ipe status", "", 
10, stud_ptr, code); 

call hes $add_acl_ entries (get_wdir_ (), "ipe_ status", 

addr (seg_ acl), 1, code); 

index = 0; 

dois 1 to 250; 
yene (i), name (i), ‘proj (i), codes (1) = "5 

end; 

call ioa_ ("End init _ ipe™); 

end init _ipes” 


ABSENTEE SCRIPT ipe.absin 


éready off 

ewd >udd>F15d>s1 

ipe driver . 

& To prevent the absout sdeaune from Pepe inordinately large, 

& the instructor has inserted the following command, which will guarantee 
& an absout segment of 10k or less. 

if [greater [st ipc.absout -be] 1474560} =then "te ipe.absout" 

logout . 
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On April 23, 1981, the following command was typed: 
li *overseer_.* -library source | 


The terminal output that resulted appears below. 


1 accounts overseer_.pl1 | type: arch comp 
path: >1ldd>tools>source>bound_admin_rtnes_.s.archive 
component updated: 01/29/75 1711.6 


1 cards overseer_.plit type: arch comp 
path: >1dd>tools>source>bound_ card input_.s.archive 
component updated: 09/04/79 1718.4 


1 dfast_process_ overseer .pli type: arch comp 
“path: >Idd>unb>source>bound_dfast_.s.archive 
component updated: 09/01/76 1342.7 


1 fst_process_overseer_.pl1 type: arch comp 
path: ~ >1dd>unb>source>bound_ fast_.s.archive 
component updated: 06/07/77 ion 7 


1 ftp_ server_overseer_ pli type: arch comp 
path: >1dd>net>source>bound | ftp server_.s.archive 
component updated: 09/23/77 1031.5 


1 iod_overseer_.pl1 type: arch comp 
, path: ->1dd>tools>source>bound_ iode_.s.archive 
component updated: 03/13/81 1038.7 | 


1 terminals overseer _.pli type: aren comp 
. _ paths >1dd>tools>source>bound_ _admin_ rtnes_ «S.archive 
component updated: 03/23/81 1014.8 


1 tolts_ overseer .pl1 type: segment 
path: >ldd>tools>source 
contents modified: 12/01/80 1136.8 


Another important overseer: project start up_ 
. | 


Not To Be Reproduced E=-1 -~FI5D 
(End Of Topic) 


APPENDIX F 


Gate and Message Segment Examples 


Page 


Poi F15D 


APPENDIX G 
Advanced Dial Facility Example 


Page 


set_up dial: proc; 
/*® The set_up dial entry point initializes the dialing environment 


1) An event-cali channel is established se that 
the answering service can notify this process 
of dialins, hangups, etc. 


2) Dials are enabled 
*/ 
/*® ‘dialok' attribute essential if this procedure is to succeed */ 


del ipe_ $create_ev_chn entry (fixed bin (71), fixed bin (35)), 
ipe_ " $delete_ev_chn entry (fixed bin (71), fixed bin (35)), 
ipe $decl_ev_call_chn entry (fixed bin (71), entry, — 
ptr, fixed bin, fixed bin (35)), 
hes $assign_channel entry (fixed bin (71), fixed bin (35)), 
dial_manager $allow dials entry (ptr, fixed bin (35)), 

(ioa_, com_err_, ioa | $ioa_ Switch) entry options (variable); 


del wasted channel fixed bin C1105 
del time char (24); — 
del code fixed bin (35), 
iox.$user_output external static ptr, 
ME char (12) varying init (tset up _ dial") ; 


del dial manager arg aligned static; 

version fixed bin init (1), 
dial_qualifier char (22) init ("astra"), 
dial channel fixed bin (71), 


ehannel name char (32) 3 


eee es ee oe weass we edi dad 


PpONNN — 


/R RRAERLEEEEAERAEARERLERERAREREREREEREERERERERE €/ 
call ioa_ ("Begin “a", ME); 


/* The following code is inserted to fake out tty_, which will 
attempt to give us fast channels we can not deal with (see the 
‘read_status' control order). By consuming all the fast channels now 
(and there aren't many available to us), we'll force tty_ to use 
garden variety channels, which we can easily handle. *#/ 


code = 0; 

do while (code = 0); 
call hes _ $assign_ channel (wasted _channel, code); 

end; ; 
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/* Channel must be obtained for notifying this process of */ 


/* all hangups and dialups. */ 
call ipe_$create_ev_chn (dial _manager_arg. dial _channel, 
code); 


if code “= 0 then call ERROR (1); 


/* Next let the answering service know we will accept 
dials - we must do this before changing the event-wait 
channel to an event-call channel ¥*/ 
call dial _manager_$allow_dials (addr (dial_manager_arg), 
_ eode); 
if code “= 0 then call ERROR (2); 


/* Make the event-wait channel an event-call channel and 
specify that my 'dial_handler' will be invoked whenever 
the answering service wakes my process on this channel #*/ 
call ipc_ $decl ev eall_chn (dial_manager_arg.dial_ channel, 
dial_handier, null O, 0, code); 


if code “= 0 then call ERROR (3); 
/* Okay...now return and wait for something to happen */ 


call ioa_ ("Now listening for dials: “a", ME); 
return; 


/R RHARERAKA RELA LK ALK AATLALHTAARLARERERRRRARREAARE ¥/ 


dial_ handler: entry (info_ptr); Bee We 


/* Handler for dial messages - this entry point will 
be invoked whenever something happens that the answering 
service notifies me about */ 


del sinfo_ptr ptr parameter; 

del 1 event info based (info_ptr), 
channel_id fixed bin (71), 
message fixed bin (71), 
sender bit (36} 

origin, 

3 dev_signal bit (18) unal, 

3 ring bit (18) unal, 

2 data _ptr ptr; 


Nh WN PO 


del listen_to_ dial entry(ptr); /* proc to dialog with terminals */ 
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del convert_ dial _message_ $return_io module entry 
(fixed bin (71), char (*), char T#), fixed bin, 
1 aligned like status _flags, fixed bin (35)); 


del 1 status , flags aligned, 
(2 dialed_up bit (1), 
2 hung_up bit (1), 
2 control bit (1), . 
2 pad bit (33)) unal; 


del 1 dialed static, /* This structure works for 
max_num_ allowed <= 10 #/ 
2 no dialed fixed bin init (0), 
2-sw (10), 
3 swname char (6) init ( 
"dial01", "dialdo2", 
"dial03", “dialO4", 
Mdial05", "dial06", 
"dial07", "diald8", 
"dial09", "diali0"), 
3 iocb ptr ptr init ((10)null ()),/*# An available switch is 
eueractertzee by null ptr #*/ 
3 devname char (32);3' 


_f*- We will-only talk to 2 terminals at a time, hanging up the third */ 
del max_num_allowed internal static options (constant) init (2); 


del nomore _ptr internal statie ptr init (null ()); /*® This ioebptr is 
used for talking to a doomed tty when system full #/ 


del iox_$find_ ioeb entry (char (#), ptr, fixed bin (35)), 
iox $attach ptr entry (ptr, char (*), ptr, fixed bin (35)) 
iox ~$destroy_ iocb entry (ptr, fixed bin (35)), 
iox $control entry (ptr, char (#), ptr, fixed bin (35)), 
error table $io_no_ permission external static fixed bin (35), 
iox_$open entry (ptr, fixed bin, bit (1) aligned, fixed bin (35)), 
iox $detach_iocb entry (ptr, fixed bin (35)), 
iox $close entry (ptr, fixed bin (35)), 
clock. entry returns (fixed bin (71)), 
date time entry (fixed bin (71), char (#)), 
ipe $cutoff entry (fixed bin (71), fixed bin (35)), 
ipe $reconnect entry (fixed bin (71), fixed bin (35)); 


del i fixed bin; /* an index */ 


del (which channel automatic, nomore_ channel static) char (32). 


om odule char (32), 
ce led fixed bin; 
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ME = "dial handler"; /* For com_err_ */ 

/* First of all, interpret the event message sent from 
the answering service - it should either be that 
Someone has dialed in or hung up */ 

call convert dial message $return_io module ( 

event __info.message, which_ channel, 
io module, n_ dialed, status flags, code); 

/* n_dialed = -1 If this is an informative 

message (which it is)*/ 
if code “= 0 & 


“a 


code “= error_table $io_no permission then call ERROR (5); 
/* Log in event / 


call date time (clock. (), time); 
eall ioa $ioa Switeh (fox $user output 
"“as “(DIALED UP*;HUNG UP“] AT “* | 
which channel, status releeasdieied. _up, time) ; 


oe Restart any interrupted io to the master terminal *#/ 
call iox_$control (iox_$user_output, "start", null (), code); 


if “status flags.dialed_up then do; /* Then it must 
be a hang up and we have to find out which 
device, mark it available, & detach the switch. */ 


do i = 1 to max_num_allowed 

while (dialed.sw (i).devname “= 
which channel); 

end; 


if “(i > max_num_allowed) then do; _ 
- dialed.no dialed = dialed.no_ dialed -1; . 
call ioa $ioa switch (iox user _output, 
"“QxAt this instant, “i “[terminal*;terminals”™] “[is*;are “j logged. on." 
| dialed.no | dialed, (dialed.no_ dialed = 1), 
(dialed.no dialed = 1)); 


~/*® Close and detach the switch */ 
call iox $close (dialed.sw (1).iocb | ptr, code); 
if code “= 0 then call ERROR (6); 
call Sa a (dialed.sw (i).iocb_ ptr, 
code 
if code “= error table $io no permission 
& code “= 0 then call ERROR (7); 
dialed.sw (i).iocb ptr = null (); /* free 
this ‘switch #f 


- 


end; 
return; 
end; 
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- @lse if status flags.dialed_up then do; 
/* Somebody dialed in - get to work on attaching and 
listening to him. As we must update a critical database 
(the structure 'dialed'), let us prevent interruption 
during the update period by ‘masking’ wakeups on the 
event-call channel 'dial_manager_arg.dial_channel'. */ 
call ipe $geutoff (dial; _ manager arg.dial _channel, code); 
if code ~=s 0 then call ERROR (4); 


/* Loop until we find a free iocb 
(indicated by a null fioeb ptr), OR 
until. we exceed max_num_ allowed. ¥*/ 
do i= 1 to max_num allowed 
while (dialed.sw (i).iocb ptr 
“= null 0)); 
end; 


if “(i > max_num_allowed) then do; 
/* if there's a switch available */ 
dialed.devname (i) = which channel; 
dialed.no dialed = dialed. no_ dialed + 13 
call ioa $ioa switch: (iox $user output, 

"“QxAt this instant, “i “{terminal*;terminals”] “[{is*;are* j logged on." 
dialed.no dialed, (dialed.no_ dialed = 1), 
(dialed.no dialed = 1)); 


/*® Find an ioeb for the user and attach user's device 
via tty_ I/0 module *#/” 
Gall iox_$find_iocb (dialed.sw (i).swname, 
dialed.sw (i).iocb ptr, code); 
call ipe_ $reconnect 


(dial_manager_arg.dial_channel, code); 


/* Safe to unmask */ 


call iox_$attach_ptr (dialed.sw (i).ioeb ptr, 
"tty "Iidialed.sw (i).devname, nulI (), code); 
if code “= 0 then call ERROR (9); 


call iox gsopen (dialed.sw (41) .ioeb ptr, 

3 /* stream io */, 

"Ob, /* unused must be zero #/ code); 
if code is 0 then call ERROR (10); 
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/* Now that we have attached the user's terminal, call the main 
program that handles these users; it will handle all 
processing for these terminals, and when the user is 
done, it will simply return to me */ 

call listen_to_ dial (dialed.sw (i).iocb_ ptr); 
return; 


end; 
else do; /® we've run out of switches *#/ 
if nomore ptr = null () then do; 
call” iox $find_ioeb ("nomore", nomore ptr, code); 
/* Nope, we can not avoid this call. ¥/ 
if code “= 0 then call ERROR (14); 
end; 
nomore_channel = which_channel; 
call iox _$attach ptr (nomore ptr, 
"tty _ "} {which channel, 
null (), code); 
if code “s 0 then call ERROR (15); 
call iox_$open (nomore ptr, 2, "O"b, code); 
/* Stream output suffices for doomed tty */ 
if code “= 0 then call ERROR (16); 
call ioa $ioa_switch (nomore _ptr, 
"DIAL SYSTEM astra FULL WITH *i USERS. 
TRY AGAIN LATER.", max num allowed); /*® SORRY FELLA #/ 
call idx $control (nomore ptr, "hangup", null (), code); 
if code “= 0 then call ERROR (17); 
call iox $close (nomore ptr, code); 
if code “= 0 then call ERROR (24); 
eall iox_$detach_iocb (nomore ptr, code); 
if code *= 0 & 
code “= error_table $io no permission 
then call ERROR (25); 
call ipe $reconnect (dial_manager_arg.dial channel, 
| eode); /* Safe to unmask now 7, 
return; 
end; 
end; 


ERROR: proe (error _number); 
/* Internal proc to report errors */ 
del error_number; 
‘eall com_err_ (code, ME, "Check call “i of ERROR", error number): 
/* Restart any interrupted io to the master terminal */ =" 
call iox $control (iox_$user_ output, "start", null (), code); 
a goto FINISH; 
end; 
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shutoff: 


-entry; 


/* This entry point resets the environment: 
1) shuts off dials 
2) zerces dialed.no dialed 
3) wipes out iocbs and nulls ptrs. */ 


del dial_ manager $shutoff_ dials entry (ptr, fixed bin (35)); 
del ipe $decl_ eve wait _chn | nee (fixed bin (71), fixed bin (35)); 


/* 


ME = "shutoff"; 
IT Is FIRST NECESSARY TO CHANGE THE EVENT-CALL BACK INTO AN 


EVENT-WAIT CHANNEL, BECAUSE THE shutoff_dials ENTRY POINT WILL 


NOT WORK ON ANYTHING BUT. ; */ 


FINISH: 


call ipe_ $decl ev_wait chn (dial manager arg. dial _ channel, code); - 


if code “= 0 then call ERROR (21); 


call dial_manager $shutoff dials (addr (dial manager arg), code): 
if code “= 0 then call ERROR (22); 


eall ipe_ $delete_ev_chn (dial manager _arg.dial _channel, code); 


if code *= 0 then call ERROR (23); 
dialed.no dialed = 0; /* In case we 'set_up dial' again */ 
do i= 1 to max num_ allowed; | 

if dialed.sw(i)viocb ptr “snull() then do; 
call iox_$close (dialed.sw(i).iocb ptr, code); 
call iox $detach iocb (dialed.sw(i).iocb. ptr, " code); 
call iox $destroy iocb (dialed.sw(i).iocb. ptr, code); 

/* The above call automat scelly NULLS the 

— _ loeb_ptr. #/ 

end; 
end; 
return; 


end set _UP_ dial; 
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listen _to_dial: proc 


(ioeb_ptr); 


{= Procedure to dialog with a dial-up terminal #/ 


Zinclude del_iox_ entries; 


del 


iocb ptr ptr pacamatan 


code fixed bin. 


(35), 


hes $initiate count entry (char (*), char (*), char (*), 


fixed bin (247, 


& bt es wee 


fixed bin (2), ptr, fixed bin (35)), 


(seg_ptr_1, seg_ptr_2) internal static ptr init (null ()), 
(bit count_1, bit _count_2) fixed bin (24) internal static, 


buff ptr ptr, 


puffer char (256), 
n_read fixed bin (21), 
com_err_ entry options (variable), 


get_wdir_ entry 


del 1 info structure 


returns (char (168)); 


aligned, 


2 ev_chan fixed bin (71), 


2 input_ availabl 
del (addr, after) bu 


e bit (1); 
iltin; 


del ipe $decl_ev_call_ chn entry (fixed bin (71), entry, 


ptr, fixed bin, 


fixed bin (35)); 


del ipe $delete_ev_chn entry (fixed bin (71), fixed bin (35)); 


del ioa $ioa_switch 
Zinclude iocb; /* We 


entry options (variable); 


need this structure to get the 


“attach | descrip ptr #/ 


del 1 attach _deseription unaligned based 
(ioecb_ptr => ioeb.attach descrip_ ptr), 


2 descrip length 
2 dese char (0 


fixed bin (35), 


refer (attach _description.descrip length)) unal; 


call ioa $ 
"Dialed to 


ioa_switeh (iocb ptr, 


‘astra’ on channel “a.", 


after (attach _description.desc, " "}); 
if seg ptr_1 = null () then /# Efficiency earn */ 
call hes $initiate count (get _wdir_ (}, "msgi"™ 


call iox_$ 


if code “= 


Not To Be Reproduced 


nt bit count 1, 1, seg_ptr_1, code); 
put_chars (iocb ptr, seg ptr_i, 
bit count 1/9, code): 

0 then call ERROR; 


G=8 


Vil 


eS) 


call iox_$control (iocb ptr, "read_status", 
addr (info_structure), code); 

if code “= 0 then call ERROR; 

if “info_structure.input available then do; 

/* If no line is available, use ‘garden variety’ 

event channel provided to us by ‘read status' order */ 

call ipe_$decl_ev_call_chn (info structure.ev chan, 

respond to line later, iocb ptr, 0, code 

/* jioeb_ptr in above call is really our ‘data | ptr! &/ 

ye if code “= 0 then call ERROR; 

end; 

else call respond_to_line now (iceb ptr, 0); /* Else 
there is something out there to read NOW */ 

return; . /* so much for listen_to_dial #*/ 


respond_to_line_ later: entry Asntormatton pens: 
del information_ptr ptr parameter; 
del 1 event_info based (information | ptr), 
- 2 channel_id fixed bin (71), 
2 message fixed bin (71), 
2 sender bit (36), 
2 origin, 
3 dev_signal bit (18). anal’, 
3 ring bit (18) unal, 
2 data_ptr ptr; 


call respond to line now (event_info.data_ptr, 
event_info.channel_id); 


/*® But we are not sure whether there is a quit or 


ut there. */ 


bb 


= 
£ 
a 
b 
~~ 
= 
* 
) 
« 


return; 


respond _to_line now: entry (ioeb ptr, read_status_channel); 


del read status channel fixed bin (71) parameter; 
~/* Channel ultimately to be deleted */ 


cali iox _ $control (iocb ptr, “read_status", 


. addr (info structure), code) j 
if code “= 0 then call ERROR; 
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if info_structure.input available then do; 
n read = 0; 
buff ptr = addr (buffer); 
call iox _$get_ chars (ioecb ptr, buff _ptr, a 
256, n_read, code); 
if code “= 0 then call ERROR; 
if n_read > 1 then do; /* If there's something more 
“than just a newline, then do... #/ 
call iox_$put_chars (iocb ptr, buff_ptr, 
n read, code); 
if code “= O then call ERROR; 
if seg ptr 2 = null () then 
call hes $initiate count (get wdir_(), 
| "“msg2", "", bit count 2, 1, 
: seg_ ptr_ 2, "eode); 
/* Ignore code, it should be fine #7 


call iox_$put_chars (iocb ptr, seg_ptr_2, 
bit_count_2/9, code); 


a 


if read status channel “= 0 then call 
ipe_ $delete_ev_chn (read_status_ channel, 
code); /* We no longer need it #/ 
call iox _$eontrol (iocb ptr, "hangup", 
null (), code); 
if code “= 0 then call ERROR: 


end; 

return; /* There really is nothing else to do #/ 
end;. 
else return; /* If no input_available */ 


ERROR: | proc; 
gall com err_ (code, "listen_ to dial", 
"Truly unexpected.")>s . 
goto return_point; /* Intentionally non-local */ 
end ERROR; 
return_point: return; 


end listen to dial; 
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Quiz 1 


Ts Subsystem reauests that accept eathnames as input may allow 
the final entryname in the pathname to be a star name. To first 
( etermine whether the starname is valid (ie. does not besin or 
end with a Period etc.)- the followings routine should be called: 

a. hes _Sstar 
be hesSstar_list 
ce check star_name 


d. match_star_name 


e. none of the above 


ee A free pool of temrporary sesments available to each user 
makes it possible to use the same temporary sesment more than 
once via the "set _temp_sesments_" and “release_temrp_sesments_" 
routines, without having to create one when needed. 

a. temp segs belons to a sinsle procedure when in use 

b. the maximum size of a temp ses is 1&k . 


C., the above mentioned free rool is system wide 


dad. if all temep sess have been useds an aprproeriate error is 
returned 


e. all of the above 


‘é A multisesment file is composed of one or more components 
ach the size of a sessment. ; 


a. like sinsle seasment files, any word in a MSF can be seecified 
by a pathname and a word offset 
b. the first component of a MSF is named comronent O 


€. components are stored in a relational data base with the 
Pathname of the MSF . 


d. components are identified by consecutive upper case letters 


e. all of the above 
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4. A call to the routine hesu$status_minf is commonly used to 
distinsuish between a sesment,r a directory and a MSF. 
Specifically the return arsuments indicate a MSF when: 

a. type is 0 

b. type is 4 

c. type is 2 and bit count is O 


d. tyee is 2 and bit count is nonzero 


e. none of the above 


= The workins directory is the directory in which the user's 
activity is centered and which identifies the user's location 
within the storase system. The directory that becomes the 
working dir when the “cwd" command is siven without arsuments is 
known as the: 

a. home directory Ss eee re ese 

b. referencing directory 

Cc. Process directory 


d. default workins directory. 


e. none of the above 


&. The subroutine “hes. $set_max—lensth" is often used to define 
' the size limit of a sesment so that an “sutcofubounds" condition 
will be obtained with any too-larse offset. 

a: the normal maximum lensth of a seament is 255k 

b. the maximum lensth of a directory is 64k 


ce. the maximum lensth of a directory cannot be changed 


d. system wide maximum lensths can be imposed by the system 
administrator ° 


e. all of the above 
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oo The “msfuimanaser" Multics subroutine creates a File Control 

rRlock (feb) in order to keep track of manipulations on the MSF. 
hich of the followins is true? 

a. the MSF must exist for the fcb to be allocated 

b. the fcb is allocated on the stack frame of the caller 


c. the fcb is sood throushout the life of the the process 


d. the address of the fcb must be siven for any operation on the 
| MSF P ; 


e. all of the above 


&. Many Multics subroutines require an “area_ptr"™ to an area in 
which data and infermation is returned to the user. This is s0 
for example with “hes star" which returns star name matches. 
Areas can be formatted by: 


aca PL1 declaration specifying the "area" attribute 


b. the “define_area_" subroutine 


‘Ce the Multics command *create_area" 


d. use of the function “set _systemifree_area. ()" 


e. dll of the above | 


9. The subroutine call to “hes $star" returns 2 pointers within 
a user provided aréar starientry_ptr and star_names_rptr. The 
Star_names_rtr addresses a name array of matchings names: 


a. for links 

b. for sesments 

c. for directories 

d. for entries derendins urpon the value of "star_select_su" 


\ 
e. none of the above 
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10. The "define_area_" subroutine must be erovided with the 
address of some place to be formatted into an area. This address 
in the form of a rointer: 


a. is provided as arsument 1 of the call to “define area" 
b. must not be null 


c. is Provided within the information structure that 
“define_area_" must know about 


d. must Point to a rermanent sesment in the storage hierarchy 


e. none of the above 
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4. If the rins brackets for a rarticular object sessment are 


cc y z+} the sesment is resarded as a gate when: 


as x =y=z 
be x € Z 
ee y< Zz 
de x > 2 


e. none of the above 


Ce inner rins procedures are often called by outer rina 
Procedures to perform some service. It is necessary therefore 
for the inner erins procedure to know which rins it is workings 


for. This rins information known as the “VALIBATION LEVEL*® 
be obtained vias: . 


ae hces_$set_ring_brackets 
b. cu-$level_set 

( - seturins. (} 
d. cross _rins— 


—___ @e none of the above 


Se Many subsystems honor an "e'- request (aedx calc probe etc.) 


What entrypoint is used in the implementation of this feature? 


ae cu_$senerate.call 

be. cuScp | 

es culesut <cuamandpeocesdaus 
d. cu_$srow_stack_frame 


e. none of the above 
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4. Since the "hes" subroutine is the means whereby the user 
can manieulate rins O directory sesments, likely rins brackets 


or 

- O AO BD 
= 
= 


e. none of the above 


as The command level intermediary is usually not an active 
Procedure unless an abnormal. event (es. condition) occurs and it 
becomes invoked. The procedure responsible for invoking it is: 
a. default error handler 

b. cuscl 

co. cuSsetc_cliintermediary 


gd. get.to_ci_$unciaimed_sisnai 


e. none of the above 


6. Savings the attachments) of the standard I1/0 switches, 
restoring these attachments to their default state and enterins a 
new loop of readins and executings command lines is part of 
establishins a new command level. This is accomplished hy: 


a. the current command level intermediary 
b. the current command processor 

c. the current process averseer 

d. the listener (listen) 


e. none of the above 
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Vs: The routine responsible for actually errintins the ready 
message which indicates command level to the user is: 


a. listen 
b. cucSBready proc 
Cc. cu_$set_ready_procedure 


d. cu_$get_ready_procedure 


e. none of the above 


8. Consider: the case of a user (Rings 4) attemptins to execute a 
sessment with rins brackets of {3 3, 4} 
a. a segment can be in one ring only 


b. the user can only read the sessment subject of course to ACL 
- and AIM : 


ce. the user’s process cannot execute in rins 3 
cs the user can execute the sessment with a rins chanse 


e. none of the above 


F.. The “hes_Ssetrentry bound" routine provides the user with a 
method of limitins which locations of a sesment may be tarsets of 
@ cali. If the entry-bound is to be set for a siven object 
sesment: . 


a. the user must have “modify" permission on the containins 
directory 


b. all calls to the sesment must be made to an entrypoint with 
offset less than the entry-bound 


c. the sesment itself remains unchanged 
d.. the default entry bound is O 


e. all of the above 
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Guiz 2 


The “erossurin3s._" io module which allows cross rings 


attachments of switches: 


must? be siven the outer rins switchname as an argument 


is used to attach the inner rins switch to a previously 
existins outer rins switch 


enables use of the "cross _rins_io_Sallow cross" subroutine to 
do cross rins io 


the inner rins switch must be oren 


all of the above 
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zie There is actually a delay between the time a wakeup is 
received and the time the process is notified. It is possible 
. oerefore for several wakeurs to be aueued by the time a process 
is awakened. The priority disposition is as follows: 

a. event wait channels have priority by default 

b. event call channels have priority by default 

Cc. no priority exists and priority cannot be assisned 


d. no priority exists but priority can be assigned 


e. none of the above 


2 oe When a erocess establishes an event call channels 
a. the erocess must s0 blocked on the channel and wait for a 
. wakeup to be received . 


b. the channel should i hbe Polled via “ipci$readievichn" to 
determine whether a wakeup has been received 


/ e the process should call “timer_manaser_Ssleer" for at least 
“ 900 seconds 2 


d. the process may continue executing until interrupted by a 
wakeup on that channel 


e,. none of the above 


< On occasion, io to the user’s terminal may be interrupted by 
an invoked “irc.” or “Timer_manaser." routings. In order te gaat 
thinss s0ins asains the user should call the “iox $control" 
Subroutine with the followins orders: . _ 
a. Printer on 

b. suitedisable 

ce start 


d. sgetudelay 


@e. none of the above 
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4. The I0CB which is the suprortings structure for a switch, is 
created and partially initialized by either “iox _$attach_name" or 
"Jox_$attachetr". Thereafter the IO0CB is updated and maintained 
by: 

a. the io_module 

b. the user program 

ce. iox_$lookTiocb 


d. continue to -sisnal 


e. none of the above 


ee a When “pointer or “entry” variables are to be chansed ina 
chain of synonymously attached IOCB‘%s; the chanse must take place 
in the actual IOCB and then reflected in the other IOCB*s via: 

a. <module_name>S<module_namersattach 

be. iox_$findiiocb 

c. iox.$move attach 

d. ioxSprorasate 


e. none of the above 


é. If a switch has been opened for "streaminput", obviously 
record io is not surrorted. This implies that the “entry” valus 
for "readuwrecord” in the I0CSB would be: 

a. a null Pointer 

b. a null character strings 

Cc. iox_$errino_orperation 


d. error_table_$S$no_oreration 


e. none of the above 
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7. In order that a process communicate with another, it must 
now the event channel identifier of a channel created by the 
‘uther process. The former process sets this info from: 

a. userinfo_$terminal_data 

b. irpcisread uevichn 

Ce irpcui$declievicallichn 

d. ipcuSdeci_eviwaituechn 

e. none of the above 


- 


When a Process is awakened on an event call channel, control is 
immediately passed to the Procedure specified by the 
“ipci_$declievicalluichn" with one argument. This arsument is a> 
Pointer to a structures that specifies: 

a. the channels on which events are beins awaited 


b. information about the event that caused it to return 


( - data passed from the procedure that set ur the event call 
channel . . 
d. the machine conditions at the time of the interrurt 


e. none of the above 


&. The one way control path over which notification of the 


occurance of events is transmitted is called an event channel. 


The user obtains an event channel for the Purposes of 
inter-process communication bys 
a. looking up the channel master file (CMF) 

b. lookins up the channei definition tabie (EDT) 

tc. makings one up 

d. callins iepc_$createav—ichn 


e. none of the above 
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10.. If a user wishes to inhibit reading of events on a 
Particular channel but would like to have them queued for later 
handling, the followins procedure should be invoked: 

a. ipc_$cutoff 

b. create_ips_mask. 

c. ipc_$maskievicalls 


qd. iepcusblock 


e. none of the above 
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Quiz 4 


Often to ensure that only one process at a time can execute 


critical section of code, that section of code is associated 


with a so-called “lockword" which must be zero (unlocked) and 
into which a process Places an identifier (thus locking it} via 
*ssetlock_" routine. if many critical sections of code share the 
same lockword: 


As 


2... 


an execution time error will result 


each section can be executed by a different process at a siven 
time, thus multiplexins the lockword : 


only one Process can execute in any section at a siven time 


the lockword will be reset by any Process encounterins a 
locked lock from another section 


. none of the above _ : 


The “lock identifier" placed in the lockword by a process to. 


indicate a locked status is a: 


Ve. 


3. 


bit strins of 36 binary 1°s 


re bit strins of 26 binary zeroes 


unmisue value generated on the fly 


a special lock identifier kept in the active process table 
entry for this process 


none of the above 


If a procedure that sets ue timers by callins entryroints in 


“"timer_manager_" terminates abnormally, those timers which have 
been set will: 


Be 


so off at some undesired time - 

be discarded as the procedure is popped off the stack 
cause the process to hans 

be reset by the system default condition handler 


none of the above 
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Quiz 4 
4. When an “alrm" or "cput" condition is sisnalled: 


a. the stack is searched for a user defined on-unit 


be. a static handler is invoked that determines which 
user-specified Procedure should be called 


Ce some handler executes and the user's process is returned to 
command level 


d. either internal static storase for the "timer wmanaser._" 
subroutine has been destroyed or the system is about to crash 


e. none of the above 


Se In order that a process 30 blocked for a certain period of 
time the followins subroutine should be called. 

ae timer_manager_$sleep 

be ipc-$block 

ce create irps_mask— 

ds sus—-sisnal_handler. 


e. none of the above 


be The user free rtr stored in the process stack header roints 
to the place where based and controlled variables etc. are 
stored. This is by default thes 

a. Process data sessment 

&. descriptor sessment 

ce Cuniquej.area.linker 


d. user rings stack 
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9. 


Quiz 4 
The process stack sessment is ai: 


circular linked list 
single forward linked list 


double threaded list with forward and backward pointers 


| stack of controlled variables 


none of the above 


e 


A null pointer has a sesment number oafs 
negative 2 
nesative 4 
zero 


“garbage value" that causes a fault tas 2 


none of the above 


The standard descrirtor that complements the standard 


argument list indicates the arsument data tyre to be an “offset" 
if the TYPE field has a value of : : 


16 
17 
18 
19 


none of the above 
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Guiz 4 
10. The "eds" software used to build data sesments for the users 


a. creates a file in standard object format 


b. enables users to reference data ~ usins the format 
€data.sesd$<data_item> 


c. reauires as input a Pointer addressins amons other things the 
name of the data sesment 


d. invokes the PL1 comeiler when the user issues the “cds" 
command 


-e@. all of the above 
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Workshop Seven .. . 
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WORKSHOP ONE 


1. Copy the segment >udd>F15D>s1>STATUS.pl1. This is the source code 
for the program that was discussed in Topic 2. Alter this program 
so that it will: 


e-- accept the star .convention 
ee ee 


-~- print out the link target if it is a link = 


2. When calling(hes $star_ you must pass it a pointer to an area. 
Rather than using get—syStem free _area_, create an area using the 
define area “ysubroutine. Have(define area obtain a segment for 


the area from the temporary segment pool. Make the area freeing, 


“zero on free, extensible with a size of 50 words. (Pass hes $star_ 


a pointer to that area. —> 2 


Part of this workshop is to look at the contents of the area you 
have created. Therefore, contrary to good programming practice, 
Solinot tree. the structures 3) located (in ‘the sree by hes sstar 4. 


3. Test out your program. Be sure to test its ability to accept star 
names. As a final test give your program the argument, **. Use 
the list temp segments command. The last temp segment will be the 
area you just created. Use the area status command with the -long 
argument to examine the eontents of the area. (The area_status 
command will accept a segment number for an.argument, therefore, 
you can avoid typing the screech name). 


You will probably want to use the following declarations which are 


in >udd>F15D>si>include>wi.inel.pli. 
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del hes $get_link_target Brey (char(#), char(#®), char(#), 
char(#), fixed bin(35)); 
del check star_name _$entry entry (char(#), fixed bin(35)); 
del hes $star_ “entry (char(*#), char(*), fixed bin(2), ptr, 
fixed bin, ptr, BEE fixed REETaon 
| del ‘Star_entry_ eount fixed ‘bin; 
del star _entry_ ptr pointer; 
del star _names ptr pointer; . 
del 1 star entries (star _entry_count) aligned based (star_entry ptr), 
2 type fixed binary (2) Unsigned unaligned, 
2 nnames fixed bin (16) unsigned unaligned, 
2 nindex fixed bin (18) unsigned unaligned; 


del star_names (sum (star_entries (*).nnames)) char (32) 
based (star_names_ ptr); 


del define area entry (ptr, fixed bin(35)); 
del area_info_ entry (ptr, fixed bin(35)); 
del area _infop ptr; 

del area info aligned based (area rnreP ys 
version fixed bin, _. 
control aligned like area_ eontrol, | 

owner char (32) unal, 

n_components fixed bin, /* returned only */ 
size fixed bin (18), 

version of area fixed bin, /*® returned only */ 
areap ptr, 

allocated biocks fixed bin, 

free blocks fixed bin, 

allocated_words fixed bin (30), 

free_words fixed bin (30); 


-NNNNNNNNNNN= 


del area_control aligned based, 
extend bit (1) unal, 
zero_on_alloc bit (1) unal, 
zero on free bit (1) unal, 
dont free bit (1) unal, 

no_ freeing bit (1) unal, 
syStem bit (1) unal, 


pad bit (30) unal; 


NNMNMONMNMNNM — 
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WORKSHOP TWO 


Changing the Command Environment 


The command environment can be shaped in several ways by using cu 

entry points. In this workshop, you will write a procedure which will 
‘intercept’! commands before they get to your usual command processor, 
and by so doing, restrict yourself to a limited set of commands. In 
addition, your own version of a ready procedure will be installed. 


In order to use some internal static variables it is recommended that 
you write just one procedure with alternate entry points. Your procedure 
should have the following skeleton: 
change env: proc; 
<declarations> 


<code to save entry value of current command processor 
and install interceptor and new ready procedure> 


restore cp: entry; 


<code to reinstall the command processor whose entry 
value you saved> 


my ready: entry; 
<eode for new ready procedure> 
command interceptor: entry (a_line ptr, a_line len, code); 


<code for your command interceptor> 


end change env; 
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1. The ‘'my_ ready’ entry point should determine if you are in ‘ready 
on' mode. If so, it should output the por OMENS line: 


"Next Command: !* 


You should not append a new-line character at the end os this 
‘ready message’. 


2. The ‘command : @averaeptor® eheeeeoine will ineeecenk commands before 
they get to your usual command processor (typically 
‘command _processor_' or ‘abbrev_'). It should examine the a_line 
to determine whether tne command line contains any of the following 
commands: > te . 


new | proe 

logout - 

probe, pd 
exec _com, ec 
ready. on, Fdn 
ready off, rdf 
. restore ep 


If one of these commands is input to command_interceptor, it should 
pass the parameters along to whatever was the previous command 
processor. If any other command is input, the command_interceptor 
should print out a message informing the user that the command is 
not allowed, and should then return. 


3. The ‘tchange env' aie point should establish command _interceptor 
as the current command processor and the my ready procedure: as the 
current ready procedure. Note that this procedure should first 
determine the value of the current command processor and make that 
value available to the ‘command eeabercepror: and 'restore_cp' entry 
points. 


4. The ‘restore Gp! entry point should restore your usual command 
processor environment (ie. disable the activity of 
sommand taverceprer) = _ 


Test out your solutions by executing ‘ohange_ env'. You should now be 
running under the modified command. environment. Try typing some 
disallowed commands and some allowed commands. Especially observe the 
behavior of ready on and ready off. Verify your ability to return to 
your usual command processor environment by executing 'restore cpt. 


You will probably want to use the following declarations which are in 
adore abr a ly s ne ruaeetes inel. Ral 
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del a_line _ptr ptr; 
del a line len fixed bin (21); 
dcl a line char (a_line len) based (a line ptr); 
del com err’ entry options (variable); 
- del (ioa _$nnl, ioa_) entry options (variable); 
del (ltrim, rtrim, substr, index, null, codeptr) builtin; 
del cu_$set_ready procedure entry (entry); 
del cu . $get_ command _processor entry (entry); 
del cu  $set_ command _ _processor entry (entry); 
del cu_$get_ ready mode entry (1 aligned, 2 bit (1) Gneidaned: 
"2 pit (35) unaligned); 
del old command processor entry variable options (variable) 
internal static; 
del command processor $command_processor_ entry (ptr, 
fixed bin ale) fixed bin (35)); 
del 1 mode aligned, 
2 ready sw bit (1) unaligned, 
2 mbz bit (35) unaligned; 
del code fixed bin (35); 
del end fixed bin (21); 
del test string char (80) init (" new_proc logout probe pb exec _com 
ec ready on ~rdn ready_ off rdf restore cp wD) 
internal static options (constant); 
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change env: proc; 


/* 


/* 


/* 


/* 


Variable and subroutine declarations */ 


Get old command processor and old ea y procedure and 
store them in internal entries 


Set the new command processor and new ready 
procedure. These both are entries which are internal 
to procedure 'change_env' */ 


Pop the 'change_-env' frame off the stack via a 
‘return’ statement */ 


my ready: entry; 


/* 


/* 


/* 


‘my ready’ is the entry specified above in the 
subroutine call to set the new ready procedure */ 


check the value of the 'ready sw'. If ready _sw is 
true ("1"b) then print your ready message */ 
pop the frame off the stack */ 


restore ready: proc; 


/* 


/* 


"restore ready' should simply make a call to the 
appropriate subroutine to set the ready message back 
to the entry value that was stored above */ 


Pop the frame off the stack */ 


command interceptor: entry({a_line ptr, a_line len, code); 


/* 


/* 


/* 


‘command interceptor' is the entry specified above in 
the call to the subroutine to set the new command 
processor */ 


Process the command. If it is a valid command, i.e. 
is a command contained in the variable 'test_string', 
then pass the command to the subroutine which 
accesses the default command processor. Otherwis 
print an error message */ 


Pop the frame off the stack */ 


restore cp: entry; 


/*. 


/* 


‘restore cp" should simply make a cail to the 
appropriate subroutine to set the command processor 
back to the entry value that was stored above */ 


Pop the frame off the stack */ 


oS 4 


end change env; 


WORKSHOP THREE 
Synonyming and IOCB's 


Use the command tio call print_ iocb <switchname>' to examine the 
IOCB's for user _i/o, user _input, user output and error _output. 
Verify that the diagram showing synonyming at the end of Topic 6 
is correct. 


Look at the declaration of an 'IOCB' in Topic 6. List the structure 
members where a sSynonymed switch's IOCB may differ from the IOCB 
of the switch to which it is synonymed, assuming no inhibition in 
effect. There are 7 of them. | 


Refering back to part 1, look carefully at the entry value for 
iocb.put chars for all four switches examined. Try doing a 'io call 
put_chars <name> hello' using each of the four switches. You should 
be able to explain exactly what happened, in terms of what IOCB's 
were referenced, what arguments were passed to which entry point 
of which I/0 module and how the code in that module caused the. 
observed result. If not, ask your instructor. 


What will happen if you execute ‘io call close error output'? Try | 
it. 

Detach user_output. Attach it using the syn_ module, however, 
this time inhibit the close I/0 Cperatsen, 


‘io call attach user_output syn_ user _ i/o ~inhibit close' 


Use io call to examine the IOCB for user _output. What “Ewe places 
do you see evidence that the close operation has been inhibited? 


Try to close user_output. 


Using io call is an excellent way to learn about and test the Multics 
I/O mechanism. In any remaining time, feel free to experiment, but be 
aware of the fact that you may get yourself into some situations which 
require that you hang up the phone to get out of them. 


Not To Be Reproduced W-6 F15D 


WORKSHOP FOUR 
An Interprocess Communication Workshop 


The interprocess communication facility is used to coordinate processing 
between separate processes. In this workshop, you will design and 
inplement a procedure which will communicate with the instructor's 
process as follows: 


Write a pl1 procedure called ‘get message.pli' which will: 
a 


1) Create an event-call channel specifying that the procedure entry 
point sees at ee heenele The Render when a wakeup is received 
on the event-call channel. e handler called 'reverse_ message’ 
will be an entry point in the 'get message' procedure itself 
(see step 3 below). = 


2) Obtain the process id and channel id of the instructor's event call 
channel by initiating the segment >udd>F15D>s1>channel_ info and 
using’ the following structure: 


del i channel_info_overlay based(channel_info ptr), 
2 process __ ; id bit(36), SS ee t. 
2 echannel_id fixed bin (71); for mow of Sa hae 
5 


Using this information, send a wakeup to the instructor's process 
providing the channel_id of your event call channel as the 
ee 


~ message’. a 


3) Your 'reverse message' handler will be tavoked wh when the instructor's 
Br ccees sends: your process: ‘awakeup. This handler should interpret _ 
@ ‘'message' from e instructor as_a ‘char(8)' string; the 
handler should reverse this string (the pli '‘reverse' builtin 
function can be used) and finally, your process should send another 


wakeup to the instructor's es using the reversed string as 
the ‘message’. 


Note that the instructor's process will be able to determine whether 
or not you have successfully accomplished the task. If you have, you 
will receive immediate notification from the instructor's process (via 
*send_mail_'). Therefore, make sure you are in ‘accept message' mode 
prior i we) testing your solution. In addition, use the "who" command to 
verify tnat the instructor's absentee process iS indeed running prior 


to testing your solution. 


You will probably want to use the following declarations which are in 
>udd>F 15D>si>include>w4. incl. pli. 


a eee 
FSOEB >WKEPS > Bysb>st Pinel, ™ LOd nek 


ah ee Se 
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del (ioa_, com_err_) entry options (variable), 

<——hes_ , $wakeup entry (bit (36), fixed bin (71), fixed bin (71), 
fixed bin (35)), 
ipe_$create_ev_chn entry (fixed bin (71), fixed bin (35)), 


ipe_ ~$decl_ ev_call_chn entry (fixed bin (71), entry, ptr, fixed bin, 
fixed bin (35)), 


del my_chid fixed bin (71), 
Cc _ptr ptr static, 
i ~ ptr ptr, 
code fixed bin (35); 


del 1 channel info based (ec ptr), 
2 his pid bit (36), 
2 his _chid fixed bin (71); 
del event info based (i_ptr), 


1 
2 channel _ id fixed bin (71), 
2 message fixed bin (71), 
2 sender bit (36), 
2 origin, 
3 dev_signal bit (18) unal, 
3 ring bit (18) unal, 
2 data ptr ptr; 


del (null, reverse) builtin; 
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Timers 


Write a program called lock.pli that implements the following ficticious 
command: . 


no Lens es hatoutt -S mas 


USAGE: lock {-min minutes} lock = YEON) oe 

earn elle ee eee : 

FUNCTION: Prompts the user for a password and locks the 
user's terminal for the number of minutes specified 
(default = 10 minutes). To regain control of the terminal 


the user hits the break key and is again prompted for the 

Pata ne 
| When the time specified expires, the user is logged out. 

NOTES: This command prints out the following message: , 


—>It is MM/DD/YY hhmm.m zzz www. 
>This terminal is locked, please find another terminal. 


This message is printed out when lock is first invoked and 


| every 5 minutes thereafter. 


Essentially your program should go to sleep for a specified length of 
time. However, during that period, you must also repeat the message 
every 5 minutes. 


This command takes either 0 or 2 arguments. 
For the sake of debugging you should probably use a time interval 


shorter than 5 minutes and rather than logging out the user, simply 
print some message. 
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Sample terminal session: 


! lock -min 20 
Password: 
! <- user supplies password 


Tt is 07/21/81 0812.2 mst Tue. | . 
This terminal is locked, please find another terminal. 


It is 07/21/81 0817.2 mst Tue. 
This terminal is locked, please find another terminal. 


! <QUIT> 
Password: 

{ <= user gives wrong password 
Incorrect password given. 


It is 07/21/81 0822.2 mst Tue. 
This terminal is locked, please find another terminal. 


It is 07/21/81 0827.2 mst Tue. 
This terminal is locked, please find another terminal. 


! <QUIT> 
Password: 
: <= user gives correct password 


Terminal unlocked. 


§ lock emin 1 
Password: 


It is 07/21/81 0905.1 mst Tue. 
This terminal is locked, please find another terminal. 


The lock time for your terminal has expired. 
You will be logged out. 


NDibble MED logged out 07/21/81 0906.3 mst Tue. 


CPU usage id sec, memory usage 97.3 units, cost $3.55. 
hangup . 


You will probably want to use the following declarations which are in 
>udd>F 15D>st>include>w5.incl.pli. 
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delrcu $arg count ences (eived bin, fixed bin(35)); 
del“gu $arg ptr entry (fixed bin, ptr, fixed bin(21), fixed bin(35)); 
deinargs; 


del-aptr ptr; 
del- arg char(arg length) based (aptr); 
del arg length Tees bin (21); s 


del-read_password_ ata (char(*), char(*)); 

~—Ydcl timer_manager—$sleep entry (fixed bin(71), bit(2)); 
del-timer_manager $alarm call entry (fixed bin(71), bit(2), entry); 
del timer manager $reset alarm call entry (entry); 
del-time Tixed bin(71) init (10); 
del ev_dec check entry (char(*), fixed bin(35)) returns(fixed bin(35)); 
dele-quit condition; 
del-clock entry() returns(fixed bin(71)); 
del-date time entry (fixed bin(71), char(#*)); 
del-(password1, password2) char (8); 
del-code fixed bin(35); 
del {com_err_, ioa_) entry() options(variable) ; 
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Generating Calls and Creating Status Tables 


Write a procedure called ‘please execute.pl1' which will ask the 
user, "What do you want me to execute for you? ™. The user may 
then respond with an entryname. The entryname could be a command 
or a user written program. To keep things simple, no arguments 
are allowed (ie. the user may respond 'list', but not ‘list <-d'). 
Also, you may assume the user's response is both the entryname and 
the entry point name. Your program should then generate a call to 
execute the user's request. 


To save time, you will probably want to make a copy of the segment, 
>udd>F15D>si>generate pwd.pl1l and simply edit in the necessary 


changes. 


Try out your procedure responding with commands such as ‘pwd', 
'thmu't and 'list'. Then use it to execute some simple programs you 
have written or copied into your working directory during this 
course. You might even like to ask *please_execute’ to execute 
"please execute’. 


Ask 'please_ execute’ to execute the ‘'list' command and when it 
starts to Tist your segments, hit the break/quit/interrupt key. 
Use the 'stack' request from within ‘probe! to examine the user 


stack. ig ae a 


NUMBERS 4 AND 5 ARE OPTIONAL 


4, 


Next ask ‘please execute’ to execute some program that does not 
es (make up a name). Notice the error message returned when 
your program calls com_err_. 


Create a status table and alter your program so that when you ask 
your program to execute a program that does not exist, it will 
still call com err , however, it will not behave as in part 4. 
Instead it should “print some other error message (one you have 
made up and put in a Status table you have built). 


Not To Be Reproduced Wel2 F15D 


WORKSHOP SEVEN 
The Limited Service Subsystem 


In workshop two you modified the user's environment such that only 
certain commands were acceptable. Utilize the ‘enter_1lss' command to 
achieve the same result. The following list of commands should be 
accepted (you may expand upon this list if you want to): . 


new_proc 
logout 

probe, pb 

exec com, ec 
ready on, rdn 
ready off, rdf 


Test your solution. 
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COMPILATION LISTING OF SEGMENT pfgu 
-Compiled by: Multics PL/I:Compiler, Release 25c, cats r February 18, 1980 
Compiled ats. Honeywell LISD. Phoenix, System M 
' . Compiled. on: 03/19/80 : 1083.5 mst Wed. 
. Options: map. Ec a 


»~ 4a f 


find: proc (last_name, first_name, emp struc, code); 


AN St) A) aw 


/* THESE DECLARATIONS SHARED BY BOTH ENTRYPOINTS #/ 


del acs names. array (4) char (32) internal statio options (constant) 
init ("s0c_ seo _no.acs", “manager.aos", “mail_station.acs", "“salary.acs") ; 
access allowed (4) bit "Cty: 

9 dol access allowed overlay bitty) unaligned defined (access pattoued?; 

10 dol dir_name char (168); 

11 dol user_id char (32); 

12 del ring fixed bin (17); 

13 del mode fixed bin (5); 

14 del 1 bit_mode struc aligned based (mode ptr), 


ow 
a 
io) 
rae) 


15 2 pad bit (30) unaligned, 

16 2 two bits bit (2) unaligned, /* don't care */ 

17 2 read bit (1) unaligned, /® On if read effective access a 
18 2 fourth bit (1) unaligned, /* don't care #/ 

19 2 write bit(1) unaligned; /* On if write effective access */ 


20 del ME char (4); 
21 dol find bit (1); 
22 dol 1 emp struc, 


23 2 soc _sec_no pic "(9)9", 
24 2 manager pic *(9)9", 

25 2 mail station char (3), 
26 2 salary fixed deo (8, 2); 


' 27 dol (code, dummy code) fixed bin (35); 1. 
28 dol (first_name, last_name) char (15); 
29 dol (substr, null, addr, size, rtrim) "pudltin; 

30 dol error_table_$moderr ext static fixed bin (35); 

31 del error table __$no_record ext static fixed bin (35)5 
32 dol. i fixéd bin; 

33 del (focbp, mode ptr) ptr init (null ())3 

34 dol unused rec Ten fixed bin (21); 

35 del old_ level Fixed bin; 


1 del 

2 fox _$attach ptr entry (ptr, ohar(®), ptr, fixed bin (35)), 

3 Lox $attach_name entry (char(*), ptr, char(*), ptr, fixed bin (35)), 
4 iox $close entry (ptr, fixed bin (355), 

5 tox $control entry (ptr, char(*), ptr, fixed ore ane 

6 iox $delete record entry (ptr, fixed bin(35)), |. ; 

7 lox $detach_ioob entry (ptr, fixed bin(35)), 


ke at at ad ot aot 


system id: 


handout ~ pfeu.list : 
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/* Modified by R. Frommer on June 12, 1979 to do elegant ORing, peeecanee mode bits directly, and use ~extend option */ 


Pages 


8 jox $find fiocb entry (char(#), ptr, fixed bin(35)), 

9 iox $get chars entry (ptr, ptr, fixed bin(21), fixed bin(21), fixed bin(35)), 

0 iox $get line entry (ptr, ptr, fixed bin(21), fixed bin (21), fixed bin (35)), 
1 iox $modes entry (ptr, char(*), char(*), fixed bin (35)), 

2 tox $move attach entry (ptr, ptr, fixed bin(35)), 

3. lox $open entry (ptr, fixed bin, bit(1) aligned, fixed bin(35)), 

14 fox $position entry (ptr, fixed bin, fixed bin(21), fixed bin (35)), 

fox” $put_ chars entry (ptr, ptr, fixed bin(21), fixed bin(35)), 

16 iox $read_key entry (ptr, char(256) varying, fixed bin(21), fixed. bin (35)), 
17 1ox ~$read_ length entry (ptr, fixed bin(21), fixed bin(35)) 

18 iox $read record entry (ptr, ptr, fixed bin(21), fixed bin(21), fixed bin (35)), 
19 1ox $rewrite record entry (ptr, ptr, fixed bin (21), fixed bin(35)), 

20 tox $seek_key entry (ptr, char(256) varying, fixed bin(21), fixed bin(35)), 

21 jox_$write record entry (ptr, ptr, fixed bin(21), fixed bin (35)), 

22 Lox $destroy_iocb entry (ptr, fixed bin(35)); | 


eb cmd aed th od od et et at td ot et oot ot 
_ 
wi 


39 dol ou | $level get entry (fixed bin); 

:40 del cu $level set entry (fixed bin); | 

41 dol get ring “entry () returns (fixed bin (3)); 

42 del hos $get_user_effmode entry (char (*), char (*), char (#), fixed bin, fixed bin (5), fixed bin (35)); 
43 del get group _id $tag_ star entry () returns (char (32)); 


yy. 
45 ME = "find": 
46 find = "4 Mbs 
a _ goto COMMON " CODE; 
49 puts entry (last _name, first _name, emp struc, code); 
50 ME = "puts 
51 find = nOND; 
52 
53 COMMON CODE: 
54 
55 call cu_$level_ get (aid _ level); 
56 ring = get_ring_ 
57 eall ou | $level_ ‘set tetviey 
58 
59 _eode = 0; 
° 60 
61 dir_ name = "udd>F15d>s81"; 
62 user_id « get_group id $tag_star (); 
63 call hes $get_ user __ effmode (dir _name, "emp", user_id, ring, mode,, code); 
64 if code “s 0 then go to return_point; 
F mode ptr = addr (mode); 
67 (“find & “(bit_mode struc.read & bit_mode ) struc.write)) { /* if put, we must have read and write on emp */ 
68 (find & “bit_mode_struc.read) then do; /® If find, we must have read on emp */ 
69 code = error table _$moderr ; 
10 goto return | point; 
T1 end; 


72 
73 /* If we get here, then it must be the case that we have status on 
The our current working directory. */ 


15 
76: /* Obtain the effective access on the access control segments of interest */ 


handout | = prgu.iist rie Page 


78 do i = 1to 4s, . -/® Onee for each access control seg */ 
19 
80 call hes $get_user_effmode (dir_name, acs_ names array (1), user_id, ring, mode, code); 
81 if find then access_ allowed (1) = bit _ mode struc.read; 
82 else access allowed (i) = bit _mode_struc.write; 
83. end; 
84 
85 as One OF aa BLOCKS OF CODE, DEPENDING UPON ENTRYPOINT TAKEN... */ 
86 
87. “if find then do; 
88 
89 if access allowed overlay then do; /* elegant ORing *#/ 
90 call iox_ $find_ioob ("emp sw", focbp, code); 
91 call tox $attach ptr (iocbp, "vfile_ w tf rtrim (dir_name) t *>emp", null (), code); 
92 call i1ox_$open (Toobp, 11 /* direct input */, "0"b, code); 
93 call iox_$seek key (iocbp, (last_name {| first name), 4 * size (emp_struc), code); 
94 if code = 0 then do; i 
-95 call iox_$read_ record (loobp, addr (emp_struc), 4 *size (emp_struc), unused_rec_len, code); 
96 if “acceSs_allowed (1) then soc_sec_no = 0; 7 
97 if “access allowed (2) then manager = 0; 
98 if “access_ allowed (3) then mail station = its 
99 if “access allowed (4) then salary = 0; 
100 end; 
101 else; /* else nothing */ 
102 call fox _$close (iocbp, dummy_ code); . 
103 call fox $detach iocb (focbp, | duane )_code) 3 
104 goto return_point; /*® To reset validation level #/ 
105 ends 
106 
Say 107 else code = 13. /* This special code indicates that no fields were accessible 
© 
108 
109 end; 
110 else do; 
111 
112 af access allowed (1) & access_allowed (2) & access allowed (3) & access_allowed (4) then do; /*® If all of 
\cthem are write-able */ 
call iox_$find_iocb (“emp _sw", tocbp, code); 
WwW call fox $attach ptr (ioobp, "vrile_ * {i rtrim (dir name) §{ *>emp -extend", null (), sode); 
115 call iox $open (Locbp, 12 /* direct output #/, "0"b, code); 
116 call fox $seek_key (locbp, (last_name j{ first name), 4 ® size (emp_struc), code); 
: : pur : if code = error_table $no_ record then cali iox_ _$write record (iocbp, addr Cemp_ struc), 4"size (emp_str 
cuc), code); 
118 call ifox_$close (iocbp, dummy_code); 
119 call iox_$detach_iocb itoobp,~ dummy code); 
120 goto return_point; 
12 
122 end; 
123 
aon else code = 1; on /* This special code indicates that some fields were inaccessi 
\eble */ 


126 /* FALL THROUGH TO return_point #/ 


127 end; 


Randows REUTERS 


128 

129 return_point: 

130 call cu_$level set (old_level); 
131 end find; 
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SOURCE FILES USED IN THIS COMPILATION. 


LINE NUMBER DATE MODIFIED NAME | PATIINAME 
0 07/19/79 1110.0 pfgu.pl1 >user_dir dir>F15D>Student_01>pfgu.pl1 is 
37 1 02/13/79 1714.4 del_iox_entries.inol.pl1 >user_dir_dir>F 15D>Student_01>dcl_iox_entries.incl.plt 


fendoul 0" No ee en PERE abe ee On ee ee ge 


IDENTIFIER 


LOC 


NAMES DECLARED BY DECLARE: STATEMENT, 


NE 
access allowed 


access_ allowed _over lay 
acs names_ array 

addr 

bit_mode_ struc 

code 


cu |“ $lovel _get 
cu_$level_set 
dir_ name 
dummy code 
emp struc 


_@rror_table $moderr 


error_ “table _$n0_ record 


find 

first name 

get_ group_ id $tag_ star 
get_ ring_ 

hes_ y $get_ user _effmode 
4 


loecbp 


iox_$attaoh_ ptr 
fox __$close 

Lox ~$detach_ Loob 
iox” _$find_ 1oob 
Lox, _$op en 


iox “$read. record POSEN as 


1ox_ ~$seek” _key 

Lox ~$write_ record 
last name — 

mail” station 


old level 
rea 
ring 
rtrim 
salary 
size 
so0c_sec no 
unused Fec_ len 
user id 
write 


-handow 


000165 
000100 


, . 000000 


000034 
000036 


. 000101 


0(34) 


000167 


000010 
000012 
000166 


000044 
000040 
000042 
000170 
000172 


000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 


000164 


000174 
000177 
000163 


000176 


000153 


NAMES DECLARED IN THIS COMPILATION. 
OFFSET 


STORAGE CLASS 


automatic 
automatic 


_ defined 


constant 


based 
parameter 


constant 
constant 
automatic 
automatio 
parameter — 


external static: 


external static 
automatic 
parameter: 
constant 
constant 
constant 
automatic 
automatic 


constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
parameter 
parameter 
parameter 
automatic 
automatic 


automatic 
based 
automatic 


parameter 


parameter 
automatic 
automatic 
based 


DATA TYPE . 
ohar(4). 
bit(1) 


bit(4) 
char (32). 


builtin function 


structure 
fixed bin(35,0) 


entry 


entry 

char (168) 

fixed bin(35,0) 
structure. 


fixed bin(35,0) 
fixed bin(35,0) 
bit(1) 

char(15) 
entry 

entry — 


-entr , 
fixed bin(17, 0) 


pointer 


entry 
entry 
entiry 


-entiry 


entry 


’ entry 


entry 
entry 

char (15) 
char (3) 
picture(9) 


fixed bin(5,0) 


pointer 

builtin function 
fixed. bin(17,0) 
bit¢1) - 

fixed bin(17, 0). 
puiltin function 
fixed deo(8,2) 
builtin funotion 
picture(9) 

fixed bin(21,,0) 
char (32): 
bit(1) - 


ATTRIBUTES AND REFERENCES 
(* indicates a set context) 


unaligned dcl 20 set ref 45*® 50% 

array unaligned dol 8 set ref 81% 82% 89 89 96 97 98 
99 112 112 112 112 

unaligned del 9 ref 89 

initial array unaligned del 6 set ref 80% 

dol 29 ref 65 95 95 117 117 . 

level 1 dol 14 

dcl 27 set ref 1 49 59* 63* 64 69*® 80* 90# 91% 92% 
93* 94 95* 1078 1139 114% 115% 1168 117 117% 124% 

external del 39 ref 53 

external dol 40 ref 57 129 


unaligned del 10 set ref 61% 63* 80* 91 114 


| external del 1-1 ref 


~~ external del 


pfgu.list 


- dol 27 set ref 102% 103* 118% 1198 
level 1 unaligned del 22 set ref 1 49 93 95 95 95 


116 117 117 117 
del 30 ref 69 


- del 31 ref 117 
~. unaligned dol 21 set ref 46* Ap 66 66 81 87 


unaligned deol 28 ref 1 49 93 1 
external dol 43 ref 6 
external dol 41 ref 36 
external dol 42 ref 63 80 


‘dol 32 set ref 78* 80 81 82% . 


initial del 33 set ref 33% 90* gi# go 93" 95* 102* 
103* ee 1148 115% a ee 1188 119% 

9 

external dol 1-1 ref 102 118 

external del 1-1 ref 103 119 

external del i-1 ref 90 113 

external deol 1-1 ref 92 115 
1-1 ref 95 _ . 
1-1 ref 93 116 

ref 1417 | 


external dcl 
external del 1t~1 


unaligned del 28 ref 1 49 93 116 


level 2 packed unaligned del 22 set ref 98# 
level 2 packed unaligned dol 22 set ref 97*# 
del 13 set ref 63* 65 80# 

initial del 33 set ref 33% oF 66 66 66 81 82 
dol 29 ref 33 33 91 91 114 1 14 

dol 35 set ref 53* 129* 

level 2 packed unaligned dol 14 ref 66 66 81 
dol 12 set ref 56* 57% 63* 80# 

del 29 ref 91 114 

level 2 del 22 set ref 99* 

dol 29 ref 93 95 116 117 

level 2 packed unaligned del 22 set ref 96* 
del 34 set ref 95* 

unaligned del 11 set ref 62* 63* 80% 

level 2 packed unaligned del 14 ref 66 82 
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NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. 


lox $attach name 000000 constant entry °°: external del 1-1 

fox $control : 000000 constant entry > external del i-i 

fox $delete record 000000 constant entry external del i-i 
iox_$destroy_ locb 000000 constant entry 4 external del 1-1 

fox $get chars 000000 constant entry external del 1-1 

fox $get_line 000000 constant entry - external del 1-1 

lox _$modes 000000 constant entry external dcl 1-1 

fox $move attach 000000 constant entry external del 1-1 
iox_$position 000000 constant entry external del i-1 

fox _$put_ chars 000000 constant entry external dcl 1-1 

fox $read key 000000 constant entry . external del 1-1 - 
fox $read length 000000 constant entry external del i-1 

iox $rewrite record 000000 constant entry external dol 1-1 
substr - builtin function del 29 

NANES DECLARED BY EXPLICIT CONTEXT. 

COMMON CODE 000145 constant label deol 53 ref 47 

find ~ 000117 constant entry external del 1 

put 000134 constant entry external dcl 49 

return _point 001200 constant — label del 129 ref 64 70 104 120 — 
THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. ~ 


STORAGE REQUIREMENTS FOR THIS PROGRAM. 


Ob ject Text — Link . Symbol Defs Static 
Start 0 0 THik 1462 =; «1274 Vou 
Length 1700 1214 46 201 °200 0 
BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME 
find 233 external procedure is an external procedure. 


STORAGE FOR AUTOMATIC VARIABLES. 


STACK FRAME LOC IDENTIFIER BLOCK NANE . 
find 000100 access_ allowed find 
000101 dir_name find 
000153 user id find 
000163 ring find 
000164 mode find 
000165 ME find 
000166 find find 
000167 dummy code find 
000170 i find 
000172 iocbp find 
000174 mode_ptr find 
000176 unused _ rec len find 
000177 old level find 
THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. 
alloc _cs eat_realloc cs call_ext_out_ dese call_ext_out return shorten stack 
ext entry j 


NM aac ST 0 a a a I a! 


THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. 


cu_$level_ get cu_$level set get_group_id $tag star get_ring_ 
hes $get_user_effmode lox $attach_ptr lox _$close iox $detach_ iocb 
fox $find_iocb iox_$open . lox_$read_ record iox_$seek_key 


iox_ $write record 


THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. 


error _table $moderr error table $no_ record 
LINE LOC . LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC _ LINE LOC 
33 000105 1 000112 45 000125 46 000127 47 000131 49 000132 | 50 000142 
51 Q00144 53 000145 56 000154 . ; 57 000165 59 000174 61 000176 ~ 62 000201 
63 000210 64 000250 65 000254 66 000256 69 000303 70 000306 78 000307 
80 000314 81 000352 82 000362 83 000367 87 000371 89 000373 90 000376 
91 000422 92 000507 93 000532 94 000570 95 000574 96 000617 97 000630 
98 000641 99 000651 102 000661 103 000672 104 000703 107 000704 109 000707 
112 000710 113 000732 © 114 000756 115 001043 116 001066 117 001124 118 001152 


119 001163 120 001174 124 001175 129 001200 131 001207 


BB PERU LSE age 


put.lis 


A ie ee NE rc el aN artes et RSLS SLA 


t 


omit 


arch comp ins 
component updated: 


>udd>F 15D>s1>handout>gw.archive 
03/19/80. 1043.9 system ids 34=-14.C 
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COMPILATION LISTING OF SEGMENT put 


Compiled by: Multics PL/I Compiler, Release 250, of February 18, 1980 


Compiled at: Honeywell LISD Phoenix, System M 
Compiled on: 03/19/80 1039.0 mst Wed 
Options: map 


/* Command interface to the put_find_gate_ gate entrypoints */ 


/* Modified on June 12, 1979 by R. Frommer to produce better diagnostic messages. */ 


find: proc; 
/* DECLARATIONS #/ 


del ME char (4) varying; 
del nargs fixed bin; 
del argl fixed bin (21); 
dol (first name, last name) char: (15); 
dol code fixed bin (35); 
dcl arg char (argl) based (argp); 
dol argp ptr; 
del 1 emp struc, 
2 soc_sec_no pic "(9)9", 
2 manager pic."(9)9", 
2 mail station char (3), 
2 salary fixed deo (8, 2); 


dol (error table $bigarg, error_ table $wrong no_of args) ext static fixed bin (35); 


del (fixedoverflow, conversion, size) conditions 


del cu_$arg_ptr entry (fixed bin, ptr, fixed bin (21), fixed bin (35))5 \ 


del cu_$arg_count entry (fixed bin); 
del (com err ioa ) entry options (variable); 
del (put_ find gate $find, put find gate put) entry 


2 char (3) member, 2 fixed dec (8, 2) member, fixed bin ( 
dcl cv_dec check_ entry (char(*), fixed bin(35)) returns (tine 


ME = "finds 
call ecu _farg count (nargs); 


in(35))3 


| 
(char (15), char (15), 1 structure, 2 pic "(9)9" member, 2 phe "(9)9" member, 
5: ‘ 
i 
| 


if nargs “= 2 then do; 


call com err (error_ table $wrong_no_ of args, ME,.— 
"*/Correct invocation: find” First_name Last, name"); 


return; 

end; 

call cu $arg ptr (1, argp, argl, code); 

if argl> 15 then do; 
call com_err_ (error_table $bigarg, ME, 
‘return; 

end: 

else first name = arg; 


PAT era ee ee ee any ee 


"“a exceeds 15 characters.", arg); 


eee, 
a a ESS Ae EET IR SSIS SERS: et eNO EIS HONE MERTON RARE RRRCCGRN 


call cu_$arg ptr (2, argp, aval sede); 

if argl’> 15 then do; 
Gall com_err_ (error_table $bigarg, ME, "“a exceeds 15 characters.", arg); 
returns ; 

end; 

else last name = arg; 


51 /* Initialize emp struc prior to calling the gate entrypoint */ 


soc sec No, manager, salary = 0; 
mail_ station =. ""; 


call put _find gate $find (last_name, first_name, emp_struc, code); 
if code = 1 /* this is a special case "/ then 
call com_err_ (0, ME, "You don't have proper access on the fields in the employee file."); 
else if code “s 0 then call com_err (code, ME); 
else call ioa_ ("*{“s*;SOCIAL SECURITY NUMBER a “i 


61 “J]*C*s* MANAGER'S SOCIAL SECURITS NUMBER = “4 
62 *)*(*s*;MAIL STATION = “a 
63 *]*£*s*sSALARY = $74 


64 *)", (s0c_ 


70 put: 


\o3 


80 /® OBTAIN 


sec_no = 0), soc_ sec _ no, 
(manager = 0), manager, 
(mail station s ""), mail _ station, 
(salary = 0), salary); 
return; 7* END OF find PROCEDURE */ 


entry (); 


ME s "put"; 
call cu_$arg count (nargs); 
if nargs *= 6 then do; 
call com_err_ (error_ table . $wrong no of args, ME, 


"“/Torrect invocation? put First_name Last_name Faployse*s.. 53_ ‘no Manager's ss_no Mail Station Salary") 


return; 
end; 


SIX BECUERED ARGUMENTS */ 


call cu_ $arg_ pee (1, argp, argl, code); 

if argl> 15 then do; 
call com_err_ (error_table_$bigarg, ME, ““*a%, arg); 
returns 

ends 

else first name = arg; 


call cu_$arg ptr (2, argp, argl, code); 

if argl > 15 then do; 
call com_err_ (error_table $bigarg, ME, "“a", arg); 
returns 

end; 

else last_ name = arg; 


call ou ere ptr (3, argp, argl, code); 


if argl “= 9 | verify (arg, "0 123456789") “s 0 then do; 


age 


oh of ae aod oo cod od 
et ob ad co od oo aod 
BIA Ew 


bottoms: 


a 


call com_err_ (0, ME, ““a is not a suitable social security number for 
arg, last _name) ; 
return; 
end; 
else soc_sec_no = cv_ dec check (arg, code); 


call cu ere ptr (4, argp, argl, code); 
if argl”*s 9° | verify (arg, "0 123456789") “=z 0 then do; 


call com_err_ (0, ME, "“a is not a suitable social security number for “a's manager.", arg, last name); 


return; 
ends: ‘ 
else manager = cv_dec_ check (arg, code); 


call cu Bia ptr (5, argp, argl, code); 

if argl “= 3 then do; 
call com _err_ (0, ME, "“a is not a suitable 3-character mail drop.", arg); 
return; 

end; 

else mail station «= arg; 


call cu_$arg_ptr (6, areP, argl, code); 


on fixedover flow, size begin; 
call com_err_ (0, ME, "“a is not a proper salary. It must resemble 999999. 99", aeaii 
goto bottom; 

end; 

salary 3s cv_dec check (arg, code); 

if code *sz 0 then do; 
call com err (0, ME, "“a is not a proper salary. It must resemble 999999.99", arg); 

re goto bottom; 
end; 


call put find gate $put (last_name, first name, emp_struc, code); 


if code = 1 then oall com err. (0, ME, *You lack access on one or more of the fields in the database."); 


else if code “= 0 then call com_err_ (code, ME); 
else call ioa_ ("Record written."); 


returns: 


end find; 


Page TI 


SOURCE FILES USED IN THIS COMPILATION. 


LINE NUMBER DATE MODIFIED NAME PATHNAME 
0 07/19/79 1109.5 put.pli >udd>F 15D>Student_01>put.pit 


Mandouts 0 te ee te PERO EERE 8 Sg ee ep gg tp er apt Pee ap age ao 


i NAMES DECLARED IN. THIS COMPILATION. 


IDENTIFIER OFFSET LOC 


eae ' ptt 


NAMES DECLARED DY DECLARE eat 
ME 


0100 
arg 
argl 000103 
argp 000116 
code - 000114 
com err_ 000020 
au _$arg_ count 000016 
cu_$arg ptr 000014 
cv_dec check_ 000030 
emp_ struc 000120 
error_ table $bigarg 000010 


000012 


error ~“table_ ) Swrong no of args 
000104 


first_ name 


fixedover flow 000132 
ioa 000022 
- last_nane 000110 
mail station 4(18) 000120 
manager 2(09) 000120 
nargs 000102 
put_ find gate $find 000024 
put_find gate | ~$put 000026 
salary 6 000120 
size 000140 
soc sec no - Ade Ving? ake tiiey Se 


- 000120 


NAME PECLARED BY 
conversion 


NAMES DECLARED BY EXPLICIT CONTEXT. 


DECLARE STATEMENT AND 
00000 


STORAGE CLASS 


eutomatic 
based 


automatic 


automatic 
automatic 


constant 


constant 
constant 
constant | 
automatic 
external static 
external statio 
automatia - 
stack reference 
constant 
automatic 
automatic 


automatio 


automatic 
gonstant 
constant 
automatic 
stack reference 
automatic 


NEVER REFERENCED 
0 stack reference 


oonstant 
constant 
constant — 


bottom 002025 
find . 000315 
put 000753 
NAME DECLARED BY CONTEXT OR IMPLICATION. 
verify 

handout 


DATA TYPE 
varying ohar(4) 
char 


fixed bin(21,0) 
pointer 


fixed bin(35,0) 


entry 


entry 


‘entry 


entry - 
structure 

fixed bin(35,0) 
fixed. bin(35,0) 
ehar (15) 
condition 
entry 

char (15) 

char (3) 


picture(9) 


fixed bin(17,0) 
entry 

entry 

fixed dec(8,2) 
condition 
picture(9) 


condition 


label 


entry 
entry 


builtin function 


ATTRIBUTES AND REFERENCES 
(# indicates a set context) 


del 8 set ref 31% 34* HO# 46*® 57% 59% 72s 75% Bue 
91" 98% 106% 113% 1218 126% 131% 1324 

unaligned del 13 set ref 40® 43 46® 49 BN*® 87 91% 94 
97 98* 102* 105 106% 109# 1138 116 121% 124* 1268 

dol 10 set ref 38* 39 40 40 43 N4*® 4S 46 46 49 82% 
83 84 84 87 89* 90 91 91 94 96% 97-97 98 98 102 
102 104* 105 105 106 106 109 109 1118 112 113 113 
116 118% 121 121 124 124 126 126 

del 14 set ref 38* 40 43 44" 46 49 B82" BH 87 B9* 91 
94 96* 97 98 102 104* 105 106 109 111 113 116 
118* 121 124 126 

dol 12 set ref 38* 44* 56* 57 59 59* B2* 89% 96% 
aoe 104" 409% 111% 118% 1248 125 130% 131 132 

external del 25 ref 34 4O 46 57 59 75 84 91 98 106 
113 121 126 131 132 

external dol 24 ref 32 73 

external dol 23 ref 38 44 82 89 96 108 111 118 

external del 29 ref 102 109 124 

level 1 unaligned dol 15 set ref 56® 1308 

dol 20 set ref 40* me B4F g1* 

del 20 set ref 34* 75* 


‘unaligned dol 11 set ref 43* 56* 87* 130# 


del 21 ref 120 

external dol 25 ref 60 1 133 

unaligned dol 11 set ref 498 56®% 94# 98% 106* 130% 

ere packed unaligned dol 15 set ref 54* 60 60% 
1 

mevere packed unaligned dol 15 set ref 53* 60 60* 
109 

dol 9 set ref 


2 ea 13" 7TH 
external del 2 
external del 26 toe a0 
level 2 dol 15 set ref 53* 60 608 12u® 
dol 21 ref 120 
bes packed unaligned dcl 15 set ref 53* 60 608 


dol 21 


del 135 ref 122 127 
external del 4 
external del 70 


ref 97 105 


put List ; : rage 


STORAGE. REQUIREMENTS FOR THIS PROGRAN. 


Object Text Link “Symbol ° Defs 

Start 0 0 2364 2416 2237 

Length 2610 2237 32 155 125 

BLOCK NAME STACK SIZE TYPE 

find 226 external procedure 

on unit on line 120 98 on unit 

STORAGE FOR AUTOMATIC VARIABLES, 

STACK FRAME LOC IDENTIFIER 

find 000100 ME 


000102 nargs 
000103 argl 
000104 first name 
000110 last_ name 
000114 code . 
000116 argp 
000120 emp_ struc 


THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. 
reas r ne as call_ext_out_deso 


enable | ext_entry int entry 

THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. 
com err_ cu $arg count 

ioa put_find gate_$find 


THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. 
error table $bigarg 


LINE. LOC. . LINE. .LOC . . LINE Loc . LINE 


4 000314 31 000322 32 000326 33 
39 000403 © 40 000406 - ~ HT OOO44O | 
47 000521. 49 000522 - §3 000526 54 
60 000632 68 000751 70 000752 —C T2 
77 001022 82 001023 83 001042 84 
90 001122 91 001125 ' 92 001156 gi 
100 001263 * - 102 001264 104 001315 105 
111 OO14NT 112 001466 113 001471 114 
121 001564 122 001620 120 001623 12h 
130 001720 :' 13% 001735 132 001766 133 


handous 


error_table $wrong_no of args 


Statio 
2374 
0 


WHY NONQUICK/WHO SHARES STACK FRAME 


is an external procedure. 


return 


BLOCK NAME 

find 

find 

find 

find 

find 

find . 

find. 
' find 

call_ext_ out 

unpadk_ pie 

cu $arg p 

put find. Paoted $put — 

Loc LINE LOC 

000334 34 000337 
oo04unt KH OOONNS 
000541 56 000544 
000760 73 000764 
001045 85 001076 
001157 96 001163 
001334 106 001356 
001524 116 001525 
001630 125 001661 
002006 135 002025 


cv_deo_ check __ 


tra_ext 


001531 


001663 | 


LINE 


LOC 
000364 
000467 
000612 
000776 
001103 
001224 
001416 
001550 
001717 


age 


mercer cnet aoa 


put find gate .aim arch comp ins >udd>F 15D>s1>handout>gw.archive 


component updated: 03/18/80 1609.5 system id: 34-14.C 


nea + RANE e CONRAN Sent RNESAROr 


" Gate procedure written by Raphael Frommer of Marketing Education 
Ay to be used in conjunction with the "find" and "put" command 
x ‘procedures. Transfers control to the pl1 procedure “put find _gate_util_. 


include gate macros 


gate info 

gate find,put find gate util ,find,4 
gate put ,put Tind gate util ,put,A 
end 


handout — ——— put _find_gate_.~'m eS a See eee ee. eae 


ee paper ce eneemancttaensnteteERRNINS settee eet rth eke tet te 


put_find_gate .list arch comp — ins >udd>F15D>s1>handout>gw.archive 
component updated; 03/18/80 1609.5 system id: 34-14.C 


a i a 8 a a a hh 
ASSEMBLY LISTING OF SEGNENT >udd>F15D>si>put find gate .alm — 


ASSEMBLED ON: 03/18/80 1557.0 mst Tue 
OPTIONS USED: list 
ASSEMBLED BY: ALM Version 6.2, June 1979 


ASSEMBLER CREATED: 01/28/80 0927.8 mst Mon 


Gate procedure written by Raphael Frommer of Marketing Education 
to be used in conjunction with the "find" and "put" command 
procedures. Transfers control to the pli procedure “put find gate util . 


include gate | macros 


CNOW FWY BOW ON ADU SWH ol FWD 
3 


® BEGIN INCLUDE FILE ..coce “gate_ macros.incl.alm 
te Last modified 6/77 by N. Morris, B. Greenberg, & T. VanVleck 
a Modified 741212 by PG to inhibit while computing virtual CPU time 


* This file contains several macros used when generating gate segments. 


2 we ds ot ot od = oo a 
i 


- The major macros that are defined are: 
8 * 
- " gate info general setup code for normal gates 
1-1 " hardcore gate info general setup code for hardcore gates 
1-11 (9 bad_dir_handler setup and handler for bad dir_ condition (goes at bottom) 
j-1 " bad _ "dir handler _entry entrypoint for above (goes at top) 
1-1 " gate to define a normal gate 
1-1 ” hgate © to define a hardcore gate 
et ud fgate to define a fast hardcore gate 
le Ld 
1-1 
1-1 
000000 1219 ' maclist off 
1+20 
1-21 


handout a put find gate .ifst ~~ Page 16 


handout 


1-22 " HGATE - define a hardcore gate entry 


tn23 " 
ice i hgate gatename,procedure,entry,args{,bad_ dir trap} 
1-26 " The entrypoint gatename is defined in the gate segment. If args 
1-27. " is nonzero, the number of arguments passed to gatename must be 
1-28 " equal to args. When gatename is called, it will in turn call 
1-29 " procedure$entry. ; 
1-30 6«* 
1-31 
1-32 macro hgate 
1 1-33. gentry &1,&4"2,81.¢ 
2 1-34 ts3x2 setup 
3. 1-35 «=&s&5,bad_dir_trap&{ tsx0 -set_dir_trap 
\y 1=36 &j short .call &2$&3(ap{0) 
5 137 eppbp lpl&i.t = 
6 1-38 tra return code 
1 1-39 maclist restore 
8 1-40 use linkage 
9 1-814 ' even 
10. T=H42 maclist on,save 
11 1-43 &i.t: 
12 1=Ha bss AL) 
13 TAS 
14 16 maclist restore 
15 1-47 &end 
1-48 a 
1-49 
oa is FGATE - define a fast hardcore gate 
Ne . fgate gatename,procedure,entry 
Pe) : 
1-54 
1-55 macro fgate 
1 = 1-56 ¢ gentry &1,0,0 
2 1-57 epplp omy 1p,® 
3 1-58 tra 3 
1-59 
5 4-60 maclist off 
6 4-61 &end 
1-62 ; 
1-63 
1-64 GATE - define a normal gate entry 
A ~-65 « 
a : gate gatename ,procedure ,entry,args 
je q : 
1-68 
1-69 macro gate 
1 1-70 gentry &1,&494#2,0 
2 1-71 tsx2 .. setup 
3 1-72 short_call &2$&3(api0) 
¥ 1-73 return 
5 1-74 
6 1-75 macdlist restore 


os eee put find gate. “Tst ma 


“age 


7 1-76 &end 
1-77 
1-78 


aN IONE PPPOE PES A Sonesta pearance NST: nec aA RAS TE si 
AC Ra IT 


put_find gate .list} —<—--——""—""" 


~ page ‘10 


handout ——~—CS 


aot cob and cub 
WH OWON OU Fw is = 


macro 


gentry 

maclist on,save 
segdef &i 
maclist restore 
use transfer _veotor 
maclist on,save 
tra &l.e 
maclist restore 
use main 
maclist on,sSave 
zero &2 ,&3 


put find_gate_-'tst ev eee Gwe ig ee eee a, 


“age 19 


handout . 


9 ced oe ad wd ed ed od ed oe td 


SW SNINnU SWDH |] OO SNH AV SW = 


1-96 


1-109 


ad and asd cob cod cob a> ond od od od 
ad aed cob wed cod ooh ced oe od ow 


tw 
OWONAM SW © 


md ae aed cmd cod anh a> and coe ad a od 


| 
_ 
~ 
= 


" HARDCORE _GATE_INFO - general info for hardcore gates 


macro 


otv_end: | 


eactor 


Sab find gate s1ise 


hardcore gate info 


maclist 
name 


include 
include 


maclist 
eject 


tempd 
tempd 
tempd 
tempd 
tempd 
temp 

tempd 
tempd 


use 
equ 


tra 
use 


segdef 
vfd 


use 
segdef 
even 
bss 
join 


use 
join 


use 


maclist 
eject 


epplp 
maclist 


gate actor. 


on, Save 
&1 


stack header 
stack frame 


restore 


etemp 

"label variable(0) 
otimetl, .time2| 
ounwinder arglist(0) 
-on_unit(5) | 

pf, oentryp : 

ovfl es 
emeptr 


transfer_ dene 

otv_ _begin,* : 
| 

eactor 


tv_end 


etv_end 
14/T#..tv_begin) 


main 


/text/transfer_vector,tv_end,main 


linkage 
/link/linkage 


main 
restore 


omy ip,* 
restore 


Page 20 


52 1-150 .setup: _ push 


53 1-151 epplp omy_lip,* ; 
54 1-162 sprilp spistack frame.lp_ ptr 
55 1-153 
56 1-154 maclist restore 
57 1-155 gcheck 
58 1-156 ok, 
59 1-157 - inhibit on COTE Le PIC PTE OIE PIC OLE PIC OLS PLE OLED) 
60 1-158 rocl sys_infog$clock_,*  caloulate times. 
61 1-159 sbaq pds$cpu_time 
62 1-160 staq time 
63 1-161 sbaq pds$virtual delta 
64 1-162 staq : .time2 — 
65 1-163 lda pds$page waits 
66 1-164 oe sta pf ~ i 
67 1-165 inhibit orf CT eT eT ee TT CO eer ere) 
68 1-166 tra 0,2 
69 1-167 
70 1-168 maclist restore 
T1 1-169 eject 
T2 1-170 
73 1-171 return_code: 
TH 4-172 inhibit on | CS d C49 M4 > C4 > Co 649649 64> C49 Co CoD 
75 1-173 reol Sys_info$cloock_,® calculate times 
76 121748 sbaq pds$cpu_time 
77 1-175 staq otemp 
78 11-176 ° . sbag otimel 
19 1-177. adaq bpio 
80 1-178 stag bp!ic 
81 1-179 ldaq temp 
82 1-180 sbaq pds$virtual delta 
83 1-181 sbaq » etime2 
84 1-182 © adaq bpj2 
85 1-183 stag bpji2 i 
66 1-184 lda pds$page_ waits 
87 ‘41=185 sbla opf 
88 1-186 asa bpt4 
89 1-187 aos bpi5 
a4 ice inhibit off Cad Cad Lod Ko) Cad Cad Cad Cod Lod Kad Cad Lad 
-189 F 
92 1-190 return 4 
93 1-191 
94 14-192 maclist restore 
95 1-193 eject 
96 1-194 maclist restore 
97 1-195 &end 
12196 
1-197 


handout” - a ee are put find gate ~ ‘st 2am saé 


1-198 “ BAD_DIR_HANDLER ~ code to setup and handle bad dir condition 


1-199 put this after the last hgate macro 
1-200 
1-201 macro bad_dir_handler 
1 1-202 | maclist on,save 
2 1-203 
3 1-204 include on_unit 
4H 1-205 
5 1-206 use transfer vector 
6 1-207 .handler_entry: : ES 
7 1-208 tra ehandler 
8 1-209 .handler_restart entry: 
9 1-210 tra shandler _restart point 
10 1-211 . 
11 «1-212 main 
12 1-213 .set_dir rani 
13° 1-214 stx0 - eentryp | save for restart 
14 1215 
15 1-216 mir (),(pr), £111(000)_ 
16 1-217 desc9a QO, 0 
17 1-218 desc9a .on unit, 10#4 
18 1-219 eppbp _ .bad_dir_name 
19 1-220 spribp on Unitson unit.name 
20 1-221 eppbp ehandler_entry 
21 1-222 spribp son unit+on unit.body 
22 1-223 | 1x11 ebad_dir_deso 
23. 1-224 “$x11 2on_ Unit+on_ unit .size . 
24 1-225 | eaa eon unit set up on-unit for bad_ dir 
25 1-226 sbla sp|0,du es make rel to sp 
26 1-227 sta sp| stack_ frame.on unit rel ptrs 
27 1-228 lda stack _frame.condition_ bit,dl 
28 1-229 orsa sp|stack_frame.flag_word 
29 1-230 °° tra 0,0 
30 1-231 
31 1-232 string bad _dir_ 
32 1-233 me 


handout le put_find gate_.list i | Page 22 


| 

34 14235 

35. 1-236 .handler: epaq spio verify that call came from ring 0 
36 0 1-237. cana -1,d1 check ring number in AL 
37. 1-238 tze +42 

38 1-239 zero 0 go way kid you bother me 
39 17240 

HO. 1#241 push " ok, we like the call 
Ni 1"2H2 eppip omy lp,* . 

42 1"2H3 1dx0 ap{|6 get display 

43 1-244 eppbp ap!2,0* 

KY 1-245 lda bpl stack_ frame.prev_sp 

45 1-246 cana =0700000,d1 “from another ring? 

46 1-247 tze -oontinue_ signal if not, back to signal_ 
47 1-248 / eppap apl2 Get meptr 

48 1-249 ‘ eppap sttote 

49 = 1-250 spriap bpI.meptr ee Save in gate frame 
50) 1-251 spribp elabel_variable+2 

51 1-252 eppbp chandler restart _entry 

52 1-253 spribp elabel variable ~ 

53 1-254 eppbp elabel variable 

54 1-255 spribp eunwinder_arglist+2 

55 1-256 fid 21b24,d1 

56 1-257 staq i sunwinder arglist 

ra Vee call - unwinder _Sunwinder_ (.unwinder_arglist) 

59 1-260 continue signal: 

60 1-261 lda z0400000,du *1"b 

61 1-262. sta ap}10,® set continue bit 

62 1-263 return 

63 1~264 

64 1-265 -.handler_restart_point: 

65 1-266 epaq spio check that call came from ring 0 
66 1267 cana =1,d1 

67 1-268 tze #42 

68 1-269 zero 1 

69 1-270 epplp omy_lp,® 

70 1-271 lea stack frame .condition_ bite1,dl Vanish on-unit 
71 1-272 ansa spi stack_ frame .flag_ word 

72 1273 eppbp emoptr 

13) 1-274 spribp eVfl arglist+2 

TH 1275 fid 21b249 ,d1 

75 1-276 staq ovfl _arglist 

76 1277 short_call verify lock$verify lock bad dir(.vfl_arglist) 
T7 1-278 ; 1dx0 oentryp 

78 1279 eppap spistack_ frame.arg_ ptr ,* 

79 1280 tra 0,0 retry the call 

80 1-281 

81 1282 maclist restore 

82 1-283 eject 

83 -1-284 maclist restore 
BR 12285 &kend 

. 14-286 

=287 


handow® = os put_find_gate ‘st "age 9 


1-288 


== OW SON AU Sw 
a> 
t 
~ 
=] 
oj 


ry 
ob att ot 


* GATE_INFO -~ general. info for non-hardcore gates 


macro 


eactor: 


setups: 


&end. 


gate info 

maclist on,save 

use transfer vector 

tra eactor — 

use main : 

join /text/transfer_vector ,main 


maclist restore 
eject 


getlp 
maclist restore 
gate_actor 


maclist restore 
eject 


push 

getip 
maclist restore 
gcheck 

tra 0,2 


maclist restore 
eject — 


maclist restore 


1-322 
1-323 
1-324 


= 
' 
tad 
w 
° 


et ak od aod od 


handout a put. find gate “st zi Sete re CY eer eae ae es 


macro 


gate actor 


maclist 
eppbp 
lda 

tze 


adla 
atz 
t3x0 


empe 
desoJa 
desc9a 
tnz 


lda 
arl 


-sta 


! Lae R 
{-321  " Macro to generate gate actor. 


on ,Save 
ap{2,* 

bpli-1 
return name 


1,dl 
api4,# 
search defs 


(pr ,rl),(pr,rl) 
bpj-1(3),al 
bb{i0,al 
onext_def 
ab{1i,2 

18 

api4,* 


short_return 


oreturn_name: 


1x13 
tsx0 


deso9a 
desc9a 


apt4,# 
Search defs. 


abi1,2 
enext_def . 


bpi-1 

Cpr ,rl),(pr,rl) 
bbi0(1),al 
bp!0,al 


short return 


search defs: 


odefs loop: 
] 


eax2 
eppab 


0. 

1pio,® 
abii,2 
20400000 ,du 
enext_ def 


ab{2,2 


ab{0,7. 


0,0 


‘ab}0,2 


-defs_loop 


{ 


get length of string 


zero length => get name 


include length of acc 


compare name 


return location 


get location 
compare location 


get length of name 


set length of varying string 
return string 


ab —-> defs 


get class and flags 
must be class 0 


bb => name 
teat definition 


chain to next def 


rage 25 


52 1-375 short_return 
54 1-377 &end 


handout : put_find_gate_. Ls aR ae aaa RS! TT EE ;) 


CO OON HU SW hy 


10 


AU SW as 


= 


handow! 


" Miscellaneous macros. 


macro 


gcheck 
maolist 
ldx1 
tze 
cmpx 1 
tze 


call 
oct 


even 


signal. erglist: 


zero 
zero 
arg 
arg 
arg 
arg 


string 


eho _gate_ error: 


&en 


macro 
o& iname $ 


e&idescs 


&end 


macro 


string 
aci 


vfd 


eject 


maclist | 


on, save 

-2,2 get number of args expected 

-no gate error if zero, none or doesn't matter 
ap|0 compare against number given 
ono _gate_error. args match, call procedure 


signal _$signal_(signal_erglist) 
0 


2,4 
2,0 
gate errorname 


gate errordesc 


gate error 


weqe 
09/525 ,027/&11 


on, save 


put find gate "Tst Pee kee te a 


~~ Sage oy 


3 1-418 &kend 


1-419 oe aa oe 
ape " END INCLUDE FILE ...... gate macros.incl.alm 
1-421 ee sae 
ao 6 gate_info en a 
use transfer vector 
000000 Oa 000004 7100 00 tra. eactor ~— ar 
- use > main. ee . 
- join /text/transfer_ vector ,main 


handout put find gate .1ist . _ Be OD 


000004 aa 7 00046 2721 20 actor: getip 


000005 aa 0 00002 3521 20 eppbp apj2,* 

000006 aa 2 77777 2351 00 . lda bp}-1 get length of string 
000007 Oa 000023 6000 00 tze return name zero length => get name 
000010 aa 900001 0350 07 , adla 1,dl ; include length of acc 
000011 aa 0 00004 4501 20 stz apt4,# : 

000012 Oa 000036 7000 00 tsx0 esearch _defs 

000013 aa 0 00140 1065 40 cmpe (pr,rl),(pr,rl) | compare name 

000014 aa 277777 600005 desc9a bp{-1(3),al . 

000015 aa 300000 000005 desc9a bbi0,al 

000015 Oa 000046 6010 00 tnz .. enext def 

000017 aa 1 00001 2351 12 lda ab}1,2 return location 
000020 aa 000022 7710 00 arl 18 

000021 aa 0 000048 7551 20 sta api4,* 

000022 aa 7 OOOH 7101 20 short_return 

000023 Pe yaa oreturn_name: ; 

000023 aa O 00004 7231 20 1x13 api4,# get location 

000024 Oa 000036 7000 00 tsx0 Search defs 

000025 aa 1 00001 1031 12 ~ : ompx3 abi{1,2 compare location 
000026 Oa 000046 6010 00 tnz _ ehext_def 

000027 aa 3 00000 2351 00 lda bb{i0 get length of name 
000030 aa 000033 7710 00 arl 27 
000031 aa 2 77777 7551 00 sta bpi-1 set length of varying string 
000032 aa 0 00140 1005 40 mir (pr ,rl),(pr rl) return string 

000033 aa 300000 200005 desc9a bbj0(1),al 

000034 aa 200000 000005 desoda bp{0,al 

000035 aa 7 00044 7101 20 short_return 

000036: ho search defs: 

000036 aa 000000 6220 00 eax2 0 

000037 aa % 00000 3515 20 eppab _—_ 1pio,# ab —-> defs 

000040 edefs_ loop: ; 

000040 aa 1 00001 7211 12 1x11 ab{i,2 get class and flags 
OOOO4T aa %¥00000 1010 03 empx i #0400000,du must be class 0 
‘000042 Oa 000046 6010 00 tnz onext_def 

000043 aa 1 00002 2271 12 1dx7 abj2,2 

000044 aa 1 00000 3535 17 eppbb ab{0,7 bb => name 

000045. aa 000000 7100 10 tra , 0,0 test definition 
000046 next def: 

000046 aa 1 00000 2221 12 ldx2 abl|0,2 chain to next def 
000047 Oa 000040 6010 00 tnz defs loop 

000050 aa 7 00044 7101 20 short_return 


handout en pe ind gee ee 
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000051 
000052 
000053 
000054 
000055 
000055 
000057 


000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 


000070 
000070 
000071 
000072 
000073 
0000748 
000075 


000076 
000076 
000077 
000100 
000101 
000101 


000102 
000102 


aa 


aa 
aa 
ae 
0a 
aa 
0a 


aa 
0a 
Ka 
aa 
aa 
aa 
aa 
aa 


000060 
7 00040 
7 00046 

TTTTT6 

000102 
0 00000 

000102 


6 00000 
000070 
4 00010 
6 00040 
7 00036 
6 00000 
6 00040 
000000 


000002 
000002 
000076 
000000 
000101 
000000 


VAT 141 
137 145 
157 162 


525000 


000000 


6270 00 
2721 20 
2721 20 
2210 12 
6000 00 
1011 00 
6000 00 


2541 00 
3500 00 
3521 20 
7531 00 
6701 20 
1731 00 
0731 00 
000000 


000004 
000000 
0000 00 
0000 00 
0000 00 
0000 00 


164 145 
162 162 
000 000 


000010 


7100 12 


o setup: 


signal _ arg 


push 
getlp 
ldx1 
tze 
ompx f 
©ze 


oall 


oot 


even 
lists 


string 


- egate_errorname: 


aol 


gate errordesa: 
vfd 


ano _gate error: 
tra 


=2,2 get number of args expected 

ono _gate error if zero, none or doesn't matter 
api0 compare against number given 
ono gate error args match, call procedure 


signal_$signal_(signal_arglist) 


2,0 . 
egate errorname 


ogate_errordesc 


gate_error 


“gate _error® 


99/525,027/10 


0,2 


age 31 


000001 
000001 
000103 
000104 
000104 
000105 
000106 
000107 
000110 


000002 
000002 
000111 
o0ot1t2 
000112 
000113 
000114 
000115 
000116 


NO LITERALS 
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000104 
000010 


000051 
8 00012 
7 00036 
6 00030 
7 00042 


000112 


900010 


000051 


4 00014 


7 00036 
6 00030 
7 00042 


000001 


7100 00 
000000 


7020 00 
3521 20 
6701 20 
3704 20 
7101 20 


000002 


7100 00 . 


000000 


7020 OQ - 


3521 20 
6701 20 
3701 20 


7101 20 


find: 


find .e; 


. puts 


_ ~put.e: 


gate > Find put find gate_ util _sfind, " 


segdef | find 

tra find.e 

zero 4#2,0 
_ tax2 setup 


short_ call cake find _ gate util seeieatesity: 


eatin 


gate put, put_ ‘find gate util pate 
segdef put... : 
tra ite.” 
zero 4*2,0. . 

. tsx2 8 set up 


short_ call put, find sate util. _Sput(apto) 


return 


end 


NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 


000120 
000121 

000122. 
000123 
000124 
000125 
000126 
000127 
000130 
000131 

000132 
000133 
000134 
000135 
000136 
000137 
000140 
000144 

000142 
000143 
000144 
000145 
000146 
000147 
000150 
000151 


DEFINITIONS 


000152 
600153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 


EXTERNAL NAMES 


000170 
000171 
000172 
000173 
000174 
000175 
000176 


handout | ©. 


{ 
} 


5a 000003 
5a 000032 
ae. 000000 
55 000012 
5a 000002 
55 000006 
aa 0:1 6 160. 
ae 137 7156 
aa WAu 437. 
aa 168 145 
55 000016 
0a 000002 
55 000015 
aa 003 160 
5§ - 000023 
0a 000001 
55 000021 
aa OO4 146 
as 144 000 
55 000002 
6a 000000 
55 000026 
aa O18 163 
aa 42 157 
aa 168 141 
aa 145 000 
HASH TABLE 

aa 000000 
aa 000000 
aa 000000 
5a 000012 
aa 000000 
aa 000000 
aa 000000 
5a 000016 
5a 000023 
aa 000000 
aa 000000 
aa 000000 
ae 000000 
aa 000000 
aa 023 160 
aa 137 146 
aa 144 137 
aa 1648 41h5 
aa 164 151 
aa O07 163 
aa 156 141 


000000 
600000 


000000 - 


000002 
400003 : 
000012 


165 164 


151 156 
147 141 
137 000 
000003 
400000 
000003 
165 164 
000012 
400000 
000003 
151 156 
000 000 
000016 
400002 
000003 
171 155 
154 137 
1H2 158 
000 000 


000015 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


put 


find 


symbol _ table 


put_find_gate util_ 


signal _ 


put_find gate tise: 


age SS 


NO TRAP POINTER WORDS 


TYPE PAIR BLOCKS 


000177 


000200 


000201 
000202 
000203 
000204 
000205 
- 000206 


aa 000004 
55 000050 
aa 000004 
55 000050 
aa 000004 
55 000055 
aa 000001 
aa 000000 


000000 
000015 
000000 
000021 
000000 
000055 
000000 


000000 — 


_ INTERNAL EXPRESSION WORDS 


000000 
000000 — 
000000 


000207 
000210 
000211 


5a 000057 
5a 000061 
5a 000063 


LINKAGE INFORMATION 


000000 aa 000000 
000001 Oa 000120 
000002 aa 000000 
000003 aa 000000 
000004 aa 000000 
000005 aa 000000 
000006 22 000010 
Q0000T a2 000000 
000010 Ya TTTTT0 
000011 5a 000071 
000012 9a 777766 
000013 5a 000070 
000014 Ya 777764 
000015 Sa 000067 


handout 


000000 
000000 
000000 
000000 


0000 00 


Signal {isignal_ 
put find gate util {find 
put find gate util {put 


SYMBOL INFORMATION 
SYMBOL TABLE HEADER 


000000, aa 000000 000001 , 
000001 aa 163171 155142, 
000002 aa 164162 1H5145 | 
000003. aa 000000 000004. 
.000004 aa 000000 106730. 
000005. aa HINZ34H 011300. 
000006 aa 000000 107027 
000007 aa 564756 217737 
- 000010 aa 141154 155040 
000011 aa O40040 O40040 — 
000012 aa 000024 000040 
000013 aa 000034 000040 
000014 aa 000044 000100 |. 
000015 aa 000002 000002 
000016 aa 000064 000000 
000017. aa 000000 000143 
- 000020 aa 000000 000117 
000021 aa 000000 000130 
000022 aa 000134 000117 
000023 aa 000068 000000 
000024 ea 101714 115040 
000025 aa 126145 162163 
000026. sa 151157 156040 
000027 aa 066056 062054 
000030 aa 040112 165156 
000031 aa 145040 061071 
000032 aa 067071 040040 
000033. aa 040040 O400K0. 
- 000034. aa 106162 157155 
000035 aa 155145 162056 
000036 aa 115105 104141 
000037 aa 144155 151156 
000040. aa 056141 O40040 
000041 aa ‘“O40040 040040 
/ 000042. aa . 040040 080040 | 
000043 aa . O40040 O00HO 
000044 aa 154151 163164 
000045 aa O80040 040040 
000086 aa O40040 040040 
000047 aa. ONOOKO O400NO 
000050 asa O80040 040040 
000051 aa ‘040040 040040 
000052 aa .040040 040040 
000053 aa 040040 040040 
000054 aa O40040 040040 
000055 aa .040040 040040 
000056 aa O40080. 040040 
000057 aa O40040 O40040 
000060 aa  O40040 040040 
000061 aa O480040 O80040 
000062 aa O400KO 040040 
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000063 
000064 
000065 


000066 


000067 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000100 
000101 
000102 
000103 


000104. 


000105 
000106 


000107 


000110 
000111 
000112 
00011 

00011 

000115 
000116 


040040 
000000 
000000 
000076 
063453 
000000 
564153 
000106 
057660 
000000 
053324 
076165 
076106 
104076 
076160 
137146 
144137 
164145 
141154 
076154 
076151 
154165 
076147 
145137 
143162 
056151 


~- 158056 


155040 


o40040 
000001 
000002 
000037 
431404 
107027 
400000 
000041 
372535 
105766 
600000 
thy Hy 
061065 
163061 
165164 
151156 
q7144 
137056 
155040 
1h 14h 
156143 
VAN 1K5 
141164 


155141 © 


157163 
156143 


TH1158 | 


040040 


>udd>F15D>s1>put_find_gate .alm 


 >1dd>inolude>gate_macros.inol.alm 


MULTICS ASSEMBLY CROSS REFERENCE LISTING 


Value 


NO FATAL ERRORS . 


andcou 


Symbol 


-actor 

odefs loop 
gate ~errordesc 
ogate_ errorname 
ohext def 

eno gate_ error 
ereturn_name 
esearch | ~defs 
setup 


' find 


find.e 

main 

put 

put.e 

put find _gate_ util 
signal _ 
signal_arglist 
transfer_ vector 


pi ' 
IE A EAB AEST 


Source file 


put_find gat 


put_ find” _gat 


put_ find” gat 


e_ 
e- 
e 
put_ find gate 
put find_ " gate_ 
put_ find ; gate - 
put_ find gate 
put_find_gate_ 
put_ find gate 
put_ find” ~gate_ 
put_ find gate 
put_ find y gate 
put_ find ; gate _ 

e_ 

e_ 

e” 

e- 

e 


put_ find gat 


put_ find | gat 
put _find_gat 
put_ find |_ gat 


put_ ‘find_ cate 


put 


Line number 


eo eo 
e 


1, 
{ 7 ? 
8. 


Ts 


8. 


8 


8. 
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trans.list 7 arch ocomp ' . img >udd>F 15D>s t>handout>gw.archive 
component updated: 03/19/80 1044.0 system ids 34-14.C 


emetic nee eae BANTER sa REAA GRRE Hate NIT 


COMPILATION LISTING OF SEGMENT trans 
Compiled by: Multics PL/I Compiler, Release 25c, of February 18, 1980 
.; Compiled at: Honeywell LISD Phoenix, System 
Compiled ons 03/19/80 1043.7 mst Wed 
Options: map , i 


1 trans: prog; 


2 
. 3 /* 

ha 
58 
. Name: trans 
7 —— 

\8 The trans command adds, counts, deletes, reads, and summarizes 
g* transactions resident in a message segment whose pathname is 
108 >udd>Fi5d>trans.ms. The amount of information it way return and the 
ed ability to add "transactions" into the segment are governed by 
see extended access. 

13 

que 

Pe Usage 

i trans key {args} 

1 

he ; where: 

2i* 1. key | 

228 is one of the functions listed below. 

23 

aye add, a / 

258 ~ adds a transaction to the message segment. Three 
26* . - additional arguments must be‘ furnished: 

a7s a 3 - 1. part name 

258 > % “16 characters or less 

2g* 2.° unit_price 

308 . “not to exceed 9999.99 

Ze soa - 3. how_many sold 

ee ; ; not to exceed 99999 

3ye | : The oaller must have ‘append’ extended access to 
a the segment trans.ms. 

3 

378 count, © 

38* , . returns the number of transactions (messages) in 
398 the segment. The caller must have status extended 
Ko® access to the segment trans.ms. 

yye 

hoe delete, d 

43% deletes the “ourrent" transaction. A transaction 


4 


handout i trans. list a Age 


50* |. read, r 


52# ; 


85* | sumnary, 8 


handout ~ ~ 


Te all 


20 . first 


Re next 


is made current by some previous | operation. 


if the last transaction read was not added by the 
- ealler, the caller must have delete extended 


access on trans.ms. Otherwise, -the caller must at 
least have ‘own! extended access, 


reads one or more transactions. If an additional 
argument is furnished, it must be one of the 
following: 


If user has ‘read’: extended access, 
every transaction is dumped. 


If user has ‘own't, but not ‘read’, only 
-fown' transactions are dumped. | 


If user has ‘read?. extended access, the 
first transaction is dumped. 


If user has ‘own’, but not ‘read’, the 
first ‘own’ transaction is dumped. 


36 “dast , 7 , 2 P 
; mare un to ‘trans oa first?® 
Of. user has tread! “extended access, the 
next transaction in trans.ms is dumped. 


If user. has Yown?,: but not ‘read’, the 
caller's next PORnAese son. is dumped. 


5. prior 
_ analogous to perene ead next? 


6. ‘<argument missing> 


reads the current. message. 


If the caller has ‘read' extended access, the 
dollar amount grand total of all transactions in 
the segment is returned. If the caller has ‘own', 
but not tread’, the dollars amount grand total of 
‘own’ transactions is returned instead, 


is dependent upon key as documented above, 


trans. list ~ oe . 


age 


#/ 
96 
97 
98. 


ot od afb ot ot otk ok et ek td 8 od 8 ot ds oe od 
_ 
F oe } 
— 


\e); 


1 
1 
meng 
1 
1 


a > ae : ‘ : 
del HE internal static options (constant) char (5) init ("trans"); 


dol TARGET SEGMENT. int static options (constant) char (8) init ("trans.ms"); 


deol TARGET DIR int static options (constant) char (9) init (">udd>F 15d"); 

dol (error_ Eable_ $moderr, error_table $no message, error_table $bigarg, 
| error table $bad arg, error_ table _$too ) many args, error_ table SMP Ong no_of_ args) 
; ext static fixed bin (35); 

‘dol: areap ptr; . - ' 

del (argp, messagep, arg_ list ptr) ptr; 


ws BEGIN ANCLUDE oatE oe « « mseg return_args v3._ inol.plt w/ 


* 


/* structure returned when message is read from a message segment #/ 


' dol. ms_arg_ptr ptr; 


dol 1 mseg return_args based (ms_arg_ ptr) eligned, 
2ms_ptr ptr, ny A.) seater to message */ 
2 ms_len fixed bin (18), ; : : /* length of message in bits a/ 
2 sender id char (32), ; /* process-group ID of sender */ 
2 level fixed bin, /* validation level of sender #/ 
2ms_id bit (72), /* unique ID of message */ 
2 sender authorization bit (72), /* access authorization of message sender *%/ 
2 


access Glass bit (72); . /* message access class ®/ 


/* END INCLUDE FILE . . . mseg_return_args_v3.inol.pli #/ 


dol (code, binary _number_sold) bin (35)3 
del index fixed bin; 


dol message segment gopen entry (char (*), char cn), fixed bin, fixed bin (35)); 

dol message segment $close entry (fixed bin, fixed bin (35)); 

dcl message segment $get message count_index entry (fixed bin, fixed bin, fixed bin (35))3_ 

dol message segment _ ~ $add_ index entry (Tixed bin, ptr, fixed bin (24), bit (72) aligned, bin (35))3 

dol message segment _$delete_ index entry (fixed bin, bit (72) aligned, fixed bin (35));. 

dol message segment $read_index entry (fixed bin, ptr, bit (1) aligned, ptr, fixed bin (35))3 _ 

del message _ segment _ _Sinoremental_ read_ index entry (fixed bin, ptr, bit (2) aligned, bit (72) aligned, ptr, fixed bin (35) 


dol message_segment_ $own_ read index entry (fixed bin, ptr, bit (1) aligned, ptr, fixed bin (35))3 
dol message  segment_$own inoremental_read_index sarey (fixed bin, ptr, bit (2) aligned, bit (72) aligned, ptr, fixed bin © 


del 1 trans msg based (ms arg_ ptr -> mseg_return _srgs.ng ptr), /# Sometimes pointed to by messagep */ 
2 widget_name char (16), 
2 unit _ price pic "$$$$9.v99", 
2 how Many_sold fixed deo (5; 0), 
2 total cost pico "(7)$9.v99"; 
dol grand total dollars internal static pic *(7)$9.099%; 
del silent bit (1) internal static init ("0"b); 
dol read option (2:6) char (5) internal statio options (constant) 
init ("all", "next", "prior", "first", "lLast"); 
dol : current message id bit (72) internal statio aligned init ("0"b); 
dol looping index fixed bin (17) init (1); 


129 del own bit (1) init ("oMD) 


130 del read options internal static options soonetant): char (121) 


131 init ("Your read options are: 
132 trans read 

133 trans read all 

134 trans read next 

135 trans read prior 

136 trans read first 

137 trans read last"); 


138 dol (com err , ioa ) se ppetone (variable); 
f 


139 del cu_$arg_ count entry (fixed bin) 


140 dol cu_$arg ptr entry (fixed bin, ptr, fixed bin(21), fixed bin G5); 


141 dol cu_$arg_list_ ptr entry (ptr); 


142 dol cu_$arg ptr_Trel entry (fixed bin, ptr, fixed ‘bin(21), fixed bin (35), sera; 
;. 4143 dol nargs fixed bin, argl fixed bin(21); 


-744 dol arg char (argl) based (argp); 

145 dol auto _area area (2048); 

146 dol string char (24); 

147 del date time entry (fixed bin (71) 
148 dol clock entry returns (fixed bin 


b7 


/* Should be large enough for any and all allocated structures ” 


‘ohar (#))5 
1)); 


149 dol ov_dec_ check_ entry (char (*), fixed bin (35)). returns (fixed bin (35)); 


150 del conversion condition; 
.1§1 dol binary time fixed bin (71) 


152 dol alternate binary time bit tray aligned based; 


153 dol (size, addr) builtin; 
154 dol message count; 


155 dol iox_$coftrol entry (ptr, char(#), ptr, fixed bin(35)); 


156 dol iox $user_io ext static ptr; 


7 A) 


ena Epaneifeb reg me ee Pee Ns 


a/ 


handout, 


/* COMMON BEGINNING POINT 


cali cu_$arg_count (nargs); 
if nargs = 0 then do; 
call com_err_ (error table $wrong_no_of args, “trans", 
"“/You have not invoked *trans' properly. 
Please type ‘trans key {args}', where ‘key' is either 
Sadd’, ‘delete’, ‘read', ‘summary’, or ‘count’. 
‘args! is a function of "what key has been supplied."); 
return; 
end; 
call ou_$arg_ ptr (1, argp, argl, aode); 
call ou _$arg list ptr (arg. list_ptr); /*® Sets an automatic pointer */ 
if arg = “add" { arg = "a" then call trans add; 
else if arg = "delete" | arg = "d" then call trans_delete; 
else if arg = "read" {| arg = "r" then call trans_ réad: 
else if arg = "summary" | arg = “s" then call trans_summary; 
else if arg = “count" {| arg = “e" then call trans count; 
else call com_err_ (error_table $bad_arg, ME, arg); 
return; a 


err em ane Ei TEPER ROE ACN GSE EAN TS RATED 5 


trans.lis | =e 


#/ 


a . | | 
179 trans read: pro; . ‘a 


180, 
181 if riargs > 2 then do; 
182 ; call com_err, (error_table_$too many_args, ME, read _options); 
183 return; 
184 end; : 
185. 
186 /* eae of the following do group is to set looping_ index to . ps ee 
1878 2,3,4,5, or 6 for a subsequent ‘goto’. */ oh, Wet ree a eee NE a ae | 
188 a if. wares 2 2 then do; | vthy Hagan Gian eae Ce oS ee coe 
189 call ou_$arg_ ptr_ rel (2, argp, argl, code, arg list_ptr ; - Seale, eae o 
4 ai ee index s 2 to 6 while care = read option (Looping_ index) 4 ee . 
en 
192 ; 
193 . _ Af looping ‘kiss z 7 then do; 
194 ass —— oall com_err_ (error table mebed are, ME, read options) ; 
195 . return; 
196 . end; ae 5 MOR . eo a ae 
on end: aoe 7a ae ‘ 
199 call message iecaeak: $open (TARGET DIR, TARGET SEGMENT, Vaden, éodah ee | 
-200 . Af code *2 O then do; 
201 _  ° @all cpom_err_ (code, ME, “While attempting to open “a>*a.t » TARGET _DIR, ‘TARGET _SEOHENT) 
202. ——ti( (<j _ ' peturns 
203 end; . . eager e 
204 Vents 
205 . areap = addr (auto area); . 
206 -. allocate mseg_return_args in (auto_ ek set (ms arg cr 
207 — /* No need to worry about freéing above, because area itself is automatic “is 
Ate _ goto read label (looping index); as 
210 read_label (1): ms . ¥ . 
211 Ei /* ‘trans read! a/ 
212 © if ourrent _ message id = "O"b then do}; ; 
213 call Gom_err_ 0, ‘ME, "There is no current message."); 
214 i -_ return; = Bie 
216 = sf. + > end; 
216 ; else do; 
ie : Pho u my 
218 . call message_ segment _ $incremental read_ index (index, areap, “00D, ; 
219 . -.. gurrent_message_id, ms_arg ptr, code); /* User must have 'r' extended access */ 
220 ; ' ££ code = error table | $moderr then call message segment $own_incremental_read_index (index, 
221 areap, "OO"b, current _message_ id, ms )_arg_ptr, code); . 
222 if code “sz @ then do; 
223 call com_err_ (code, ME); 
2ah emer call message _ “segment_ solose (index, code); 
225 4) pevurn; 
226 end; 
227 : 
aoe call print message 5 
22 ; , Hi 
230 call message_ segment_ golose (index, code); 
231 re runes : 


232 end; . .. 


1} yd 


233 read_label (2): | 
234 ee BI /# ‘trans read all® a/ 


235 call message segment $read index (index, areap, “O"b /® from the first */, 

236 ms arg ptr, code); 

237 if code = error_table_ émoderr then do; 

238 call message segment $own read_ index 

239 (index, areap, "0"b, ms-arg ptr, code); 

240 _ if code = error_table $moderr then do; 

244 call com_err_ (code, ME); 

242 call message segment_ $close (index, sone; 

243 return; 

244 end; 

245 own = "1"b>5 

246 end; 

247 - if code z error_table $no _message then do; 

248 call com_err_ (code, ME, "“{You have no“ ? messages in “a>“a.", own, TARGET_DIR, TARGET _SEGMENT); 

249 ; eall message y segment _ $close €index, code 

250 return; 

251 end; 

252 

253 _ if own then do; 

254 : . 

eee . do while (code “z error_table_$no_message) ; 

25 

257 call print_message (); 

258 current_message id = ms_arg ptr -> mseg_return_args.ms_id; 

259 call message_ segment_ $own_ 4{noremental read index sic areap, "01"b /*® next */, 

260 current | message id, ms. arg ptr, code); 

261 end; 

262 

263 end; 

264 else do; 

265 

eee do while (code “=z error table $no_message); 

267 

268 call print _ message (); 

269 current message id = ms are ptr -> mseg return args.ms_id; 

270 call message _segment_$incremental read Index (Index, afeap, "01"b /# next *#/, 

271 _ current message id, ms_arg ptr, code); 

272 end; 

273 end; 

2T4 

275 

276 cali message_ seeneny= $close (index, code); 

27T returns 

278 read label (3): ; , 

At ae "trans read next? a/ 

280 

281 if current_message id = "0"b then do; 

282 _. gall Gom_err_~(0, ME, "There is no current message."); 

283 return; 

264 end; $4 

285 else do;. 

286 ; 

287 call message segment _$inoremental_read_ index (index, areap, "01"b, 
handout oe rans. List. ge 0S 


288 -ourrent message id, ms_arg ptr, code); 


289 if code s error table  $moderr then call message segment ae incremental read index (index, 
290 areap, "01%, current_message id, ms_arg ptr, code 
291 if code = error_table _$moderr then do; 
292 call com_ err_ (code, ME); . 
293, call message segment_ $close (index, code); 
294 return; 
295 end; 
296 if code = error_table $no message then do; 
297 : call com_err_ (code, ME, "There is no next message."); 
298 call message_ Segment _ $close (index, code); 
- 299 return; 
300 ends 
301 
302 call print_message (); 
303 
304 ay current_message id = ms_arg ptr -> ms id; /* Update what is now the current msg #/ 
305 call message segment $close (index, ode); 
306 returns 
307 - end; 
308 read_label (4): : 
aye /* ‘trans read prior’ #/ 
311 if current message id = "O"b then do; 
312 call com_ err ~(O, ME, "There is no current message"); 
313 return; 
314 end; 
315 else do; 
316 
317 call message segment_$incremental ‘read_ index (index, areap, "10"%b, 
318 current_message id, ms_arg_ ptr, code) ;; 
319 if code = error table $moderr then cali message segment ili incremental read_index (index, 
320 areap, "10%b, ourrent_message_id, ms_arg ptr, code 
321 if code = error table _$moderr then - do; | 
322 . call com_err_ (code, ME); 
323 call message segment _| $close Randers cdde) ; 
324 return; | | 
325 end; 
326 if ode s error_table $no | message then do; | 
327 7 call com_err_ (code, ME, “There is no ‘prior message."); 
328 call message segment $close (index, code); 
329 return; 
330 | end; 
331 
a3 call print message (); 
334 ourrent message id = ms_ arg ptr -> mseg return_args.ms_id; /* Update what is now the current msg */ 
335 call message _segment_ $olose (index, code); 
336 return; 
337 . end; 
338 read label (5): _— 
339 * /* ‘trans read first? %/ 
3 
341 call message segment_$read_index (index, aveap, “o"p /* the first */, 


342 ms arg_ ptr, code); 


handout trans.list Page 16 


* 


handed. 


read label (6): 


if code = error table $moderr then do; 
cali message_ segment_ $own_read_ index (index, areap, 
ms arg ptr, code); 
if code = error table $moderr then do; 
call com_err_ (code, ME); 
call message_ _Segment_ $close (index, code); 
return; 
end; 
own = "1"b; 
end; 
if code = error table $no_message then de: 
call com_err_ (code, ME, ““{You have no*;No) messages in 
call message segment_$close (index, code); 
returns 
end; 


call print message (); 


"O"b /*® the first */, 


“ara, own, TARGET DIR, TARGET SEGMENT); 


current _message id = ms_ arg ptr =? mseg_return_ args.ms_ id; /* For a possible 


‘trans read? 
call message_ seamen $close (index, code); 
returns 


/* 


‘trans read last* 


in the future */ 


a/ 


call message _segment_ rere index (index, areap, "1% /*® the last "/, 


ms arg ptr, code) 


if code = error_ table bashers then do; 


call message_segnent_$own_read_ index (index, areap, *1"b /# the last %/, 


ms_arg ptr, code); 
own s "Fhe 
end: 
if code z error table $no _message then do; 
call com err_ (code, ME, "“CYou have no*;No] messages in 
call message _ _segment_ $close (index, code); 
returns. 
end; 


‘oall print_ message €)3 


“a>“a.", own, TARGET DIR, TARGET SEGMENT); 


current _message_ id x ms_arg ptr > mseg_ return _args.ms_ id; /* For a possible 


°trans | read? 
call message. segment _$close (index, code); 
return; 


end trans read; 


/* 


in the future #/ 


age AT 


*/ 
387 trans_add: proc; 


388 : df nargs “= 4 then do; 
389 call com_err_ (error table _$wrong_ no of args, ME, "Proper invocation: 
390 trans add widget_ name unit _price how | many sold®) ;— 
391 return; 
392 end; j 
7 393 . /* Assign the elements in the structure trans _msg one by one 
\c 
394 - allocate trans msg in (auto area) set (messagep); 
395 call cu | $arg_ ptr_rel (2, argp, argl, code, arg_list _ptr); 
396 if argl'> 16 then do; 
397 call com_err_ (error_ table _$bigarg, ME, "Widget name mustn't exceed 16 characters."); 
398 return; 
399 end; 
ao else messagep <-> trans | msg .widget name = arg; 
01 
402 call. ou_$arg_ptr_rel (3, argp, argl, code, arg list _ ptr); 
403 on conversion begin; 
4O4 call com_err_ terror table $bad_arg, ME, "Unit ene? specified does not look something like 9999.99"); 
405 goto add_rétirn_point; 
406 end; 
407 messagep => trans _msg.unit_price = arg; 
408 revert conversion; /* If we get here, ‘conversion went fine */ 
HO9 call cu_$arg_ ptr rel (4, arap, argl, code, seS7 list ptr); 
410 binary _ number sold = ov_dec_check_ lara: code) 
411 if code “= 0 then do; 
412 call com_err_ (error. table _ $bad. _arg, ME, “Number sold could not be converted into an integer."); 
413 return; 
R14 end; ’ 
N15 aise if binary_number_sold > 99999 then do; 
K16 . call com_err_ (error_table_ $bad_arg, ME, “Number sold exceeds 99999.");3 
417 return; 
418 end; 
419 else messagep ~> trans _Sg show many sold = binary _number_sold; 
420 
42i messagep -> trans _msg.total cost = messagep ~-> trans msg.unit_ price & 
N22 messagep ~> trans MEE « how many. sold; 
‘ Pits /* trans_msg structure ready for addition to >udd>F15d>trans. 
coms . ; 
Kou 
425 call message_ segment $open (TARGET DIR, TARGET SEGMENT, index, code); 
426 if code “= 0 then do; 
427 call com_err_ (code, ME, "While attempting to open “a>“a.", TARGET DIR, TARGET SEGMENT); 
428 return; ae 
429 end; 
430 binary time = clock (); /* Need a unique id for message id, hence clock */ 
431 call message segment _| $add index (index, messagep, 36 # size’ (messagep ~> trans msg), 
432 oe addr (binary time) -> alternate binary qtime, code); 
nae a code “= 0 then’call com_err_ (eode, ME, "While attempting to add a transaction."); 
else do; 
435 current message id = addr (binary_ time) -> alternate binary time; 
436 . call date_time ((current message id), string); 
437 call ioa ("Transaction added at ™a", string); 
438 end; 
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839 call message segment $close (index, code); 
N4O add_return_point: 


4a 4 end trans add; 
NN2 
handow “™ ae rans.list 


lA 


"/ 


443 trans delete: proc; 
Hy 


WAS if nargs “sz 1 then do; 

446 call com_err_ (error_table $wrong_no of args, ME, "Proper invocation: 

KT trans delete “); foe ae 

448 return; 

449 * end; 

450 if current message id = "0"b ‘then do; : 

451 mS call com_err_ (0, ME, “There is no current transaction to delete. 

452 Try some kind of read first. "); 

453 return; | 

N54 end; 

455 else do; 

456 eall message __ seguent_ ha (TARGET DIR, TARGET SEGMENT, inde, code); 

457 if code “s O then do; 

458 call com_err_ (code, ME, “While attempting to open “a>* a." _» TARGET DIR, TARGET _ SEGMENT) 
459 . return; 

460 end; 

h61 call message segment $delete_ index (index, ourrent _message id, code); 

462 if code = 0 Ehen do; 

N63 current message id = "O"b; 

464. . call ioa_ ("Transaction deleted. "); 

465 ends; 
466 else call com_ err (code, ME "While attempting to delete the current message."); 
N67 call message segment_$close (index, code); 

468 end; 

469 end trans delete; . 

470 /* 
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a/ 
474 
472 


trans summary: proc; 
dcl trans entry options (variable); 


if nargs “= 1 then do; 
call com_err_ (error _table $wrong_no of args, ME, "Proper inyocation: 
trans summary"); ie aE 
return; 
end; 
/* We oan not tolerate a quit, so ... */ 
call iox_$control (1lox_$user_io, mquit_ disable", null (), code); 
silent = "1"b; 
grand total dollars = 0; 


call trans ("read", “all*"); 

call ioa_ ("Grand total = “a", grand_total dollars); 

Silent = "0"b; 

grand total dollars 2 0; 

* How safe to unmask quits #/ 

call fox $control (iox_$user_io, "quit_enable", null (), code); 


end trans summary; a 
/ 
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*/ 
496 trans count: proc; 


497 
498 /® User must have status extended access on trans.ms */ 
499 
500 if nargs “= 1 then do; 
501 call com_err_ (error table $wrong_no of args, ME, “Proper invocation: 
502 trans count"); setae Wr, ; 
503 return; 
504 end; 
505 
506 call message_ Secnent- $open (TARGET DIR, TARGET SEGMENT, index, code); 
507 if code “= 0 then do; 
508 call com_err_ (code, ME, "While attempting to open “a>*a.", TARGET DIR, TARGET_SEGMENT); 
509 return; ; 
510 end; 
511 
512 call message segment $get_message count index (index, message_ count, eode)i 
513 if code s 0 then call ioa_ ("There are “d messages in *a", message count, TARGET SEGMENT); 
cae else call com err (code, ME); 

15 
hs call message segment $close (index, code); 

17 : 
518 end trans count; e 
519 . /* 


a mT ee ame 


a/ 
520 print_message: proc (); 


521 

522 /® Can tally dollars OR print transaction info #/ 

523 

524 call date time_ ((ms_arg_ ptr -> ms id), string); 

525 if “silent then call ioa_ ("At “a, “a sold “d “a,*/ at a total cost of “a, (unit price = “a)", 
526 string, ms arg ptr => mseg return | args.sender_id, how many sold, widget_name, total cost, unit price); 
527 else grand_total_dollars = grand_total dollars + total_ cost; ~- 

528 

529 end print message; 

530 

531 bottom _of trans: 

532 

533 end traris; 
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SOURCE FILES USED IN THIS COMPILATION, 


LINE NUMBER DATE MODIFIED NAME | 3 PATHNAME 


0 03/11/80 1122.9 trans.pli >user dir dird>F 15D>Student_ 01>trans. pli 
104 1 08/03/77 1651.9 mseg return_args v3. inol.p1t ‘>idd>Tnolide>maeg return _are s_ v3.inol. plt 


NAMES DECLARED IN THIS COMPILATION. 


IDENTIFIER. OFFSET 


LOC 


NAMES DECLARED BY DECLARE STATEMENT. , 


ME 


J 


TARGET DIR, 
TARGET SEGMENT 


addr 
alternate binary time 
areap 


arg 


arg list ptr 
arg 


argp 


auto_area 

binary number sold 
binary_ time 
clock — 

code 


com_err_ 


conversion 
eu_$arg_ count 
cu_$arg_ list _ptr 
cu  $arg_ ptr 

cu  $arg_ ptr_rel 
current | _ message_ id 


eov_deo check_ 
date_time 
error table $bad_ arg 


000062 


000054 
000060 


000100 


000106 
000120 


000102 


000122 
000113 
004130 
000072 
oootl2 


000054 


000000 
000060 
000064 
000062 
000066 
000014 


000074 
000070 
000024 
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STORAGE CLASS 
constant 


constant 


constant 


based 
automatia 


based 


automatic 
automatic 


automatic ; 


automatic 
automatic 
automatic 
constant 

automatic 


constant 


stack reference 
constant 
constant 
constant 
constant 
internal static 


constant 
constant 
external statis 


trans.list 


DATA TYPE 
echar(5) 


char(9) 

char(8) 

builtin funotion 
bit(72) 

pointer 

char 

pointer 

fixed bin(21,0) 
pointer 
area(2048) 
fixed bin(35,0) 
fixed bin(71,0) 


entry 
fixed bin(35,0) 


entry 


condition 
entry 
entry 
entry 
entry | 
bit(72) 


entry” 
Tised bin(35,0) 


ATTRIBUTES AND REFERENCES 
(* indicates a set context) 


initial unaligned dcl 96 set ref 176* 182% 194® 201% 
213% 223% 241% 248% 282% 292% 2978 312% 322% 327% 
347% 3548 375% 389% 397% HON® H12® 416% H27* 433% 
HY6* 4S1*® 458* 4668 H76* 501* 5088 5148 

initial unaligned del 98 set ref 199* 201* 248* 354% 
375*® 425" 4O7*® H56* 458* 506* 5088 

initial unaligned del 97 set ref 199* 201% 248* 3548 
375* 425% 427® 456* 458* 506* dud 513* 

del 153 ref 205 431 435 

dol 152 set ref 4318 435 

dol 102 set ref 205* 218% 2208 233* 2388 2598 270* 
287% 289" 317% 319% 338" 3448 364" 3708 

unaligned del 144 set ref 171 171 ee ite 173 173 
174 174 175 175 176® 190 400 4O7 4 

del 103 set ref 170* 189* 395* 4oo* Mtoe 

dol 143 set ref 169* 171 171 172 172 173 173 174 178 
175 175 ie 176 189* 190 395* 396 400 NO2* HOT 
HOo9*® 410 4 

dol 103 set ae 169*® 171 171 172 Ve 173 173 en 174 
175 175 176 189® 190 395* 400 402* 407 409* 

del 145 set ref 145*® 205 206 394 

dcl 105 set ref H10® N15 419 

del 151 set ref 4308 431 435 

external dol 148 ref 430 

deol 105 set ref 169® 189# 199* 200 201% 218" 220 
2208 222 2238 220% 2308 233% 237 238% 24O 2ni# 
2428 247 248* 249% 255 259* 266 2708 276% 287% 289 
289*® 291 292" 2938 296 297% 298" 305" 317% 319 
319® 321 322% 323" 326 327% 328% 335" 3387 343 
344* 346 347% 348" 353 354" 355" 362" 368" 369 
370" 374 375" 376*® 383" 395% 4o2* 409" N108 411 
425% 426 H27*® 4318 433 433% 439% 4568 457 458* 
461% 462 866*® 467% NB1® 4Q2% 506" 507 508® 512% 
513 514* 516% 

external dol 138 ref 162 176 182 194 201 213 223 241 
248 282 292 297 312 322 327 347 354 375 389 397 
HOH 412 416 427 433 4H6 NS1 458 N66 476 501 508 


514 

del 150 ref 403 408 

external dol 139 ref 160 

external dcol 141 ref 170 

external del 140 ref 169 

external dol 142 ref 189 395 4o2 409 

initial dol 127 set ref 210 218% 220% 258" 259* 2698 
270* 278 287% 289* 3048 a3e 3178 319% 334" 360% 
381* 435* 436 450 461® 46 

external dol 149 ref 410 

external del 147 ref 436 524 

deol 99 set ref 176% 194% HOF 412% 4168 
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error_table_ $bigarg 000022 external static fixed bin(35,0) del 99 set ref 397* 
error table $moderr 000016 external static fixed bin(35,0) del 99 ref 220 237 240 289 291 319 321 343 346 369 
error table $no_ message 000020 external static fixed bin(35,0) del 99 ref 247 255 266 296 326 353 374 
error table_ $too_ many args. . 000026 external static fixed bin(35,0) dcl 99 set ref 182* 
error table $wrong_no_of args 000030 external static fixed bin(35,0) del 99 set ref 162* 389" 446*® 476* 501% 
grand total dollars 000010 internal static picture(11) unaligned del 123 set ref 483* 487* 490% 527* 527 
how_many_sold 6 based fixed dec(5,0) level 2 del 118 set ref 419® 421 525% 
index 4 000114 automatic fixed bin(17,0) del 106 set ref 199* 218% 220% 224% 230* 233% 2388 
242% 249* 259* 270% 276* 287* 289% 293" 2988 305* 
317" 319% 323% 328* 335% 338% 344% 348" 3558 3628 
364" 370" 376% 383% 425* 431% 439" 456" 461® N67* 
506* 512" 516* 
joa 000056 constant entry external del 138 ref 437 464 487 §13 525 
fox $control 000076 ‘constant entry external del 155 ref 481 492 
iox $user_io 000100 external static pointer dol 156 set ref 481* 4928 
looping _ index 000115 automatic fixed bin(17,0) initial del 128 set ref 128* 190® 190® 193 208 
message count 004132. automatic fixed bin(17,0) del 154 set ref 512% 513# 
message _ segment | $add_index 000040 constant entry external deol 111 ref 431 
message ~ segment _ “$close 000034 constant entry external del 109 ref 224 230 242 249 276 293 sean 305 
323 328 335 348 78 2ee 376 383 439 h67 5 
message segment $delete index 000042 constant entry external dcl 112 ref 46 
message _ _ segment _ $get_ message | gount index 
- 000036 constant entry external dol 110 ref 512 
message_ segment _ $inoremental read_ index 
000046 constant entry external dol 114 ref 218 270 287 317 
message segment _$open 000032 constant entry external del 108 ref 199 425 456 506 
message_ - Segment $own incremental read_ index 
900052 constant entry external dol 116 ref 220 259 289 319 
message segment $own_read_index 000050 constant entry external dol 115 ref 238 344 370 
message segment $read_index 0000448 constant entry - external del 113 ref 233 338 364 
messagep 000104 automatic pointer dol 103 set ref 394* HOO 4O7 419 421 N21 HAT 431% 
431 
ms_arg ptr 000110 automatic pointer dol 1-7 set ref 206* 218% 220" 2338 238% 258 259% 
269 270* ee 289* 304 3178 319# 334 aoe 344* 360 
364" 370" 381 524 525 525 525 525 525 527 
ne id 14 based bit(72) level 2 dol 1-9 ref 258 269 304 334 360 381 524 
s ptr based pointer level 2 dol 1-9 ref 525 525 525 525 527 
mség_ return args based structure level 1 del 1-9 set ref 206 
nargs 000117 automatic fixed bin(17,0) del 143 set ref 160* 161 181 188 388 445 475 500 
own 000116 automatic bit(1) initial unaligned dol 129 set ref 129# 245% 24B* 253 
351% 354% 372% 375% 
read_ option 000045 constant char(5) initial array unaligned del 125 ref 190 
read options 000006 constant char(121) initial unaligned del 130 set ref 182% 1948 
sender id 3 based char (32) level 2 dol 1-9 set ref 525* 
silent” 000013 internal static bit(1) initial unaligned del 124 set ref 482* 489" 525 
size builtin function del 153 ref 431 
string 004122 automatic char (24) unaligned dol 146 set ref 436* 437 524* 525% 
total_cost és - 40 based picture(11) level 2 packed unaligned del 118 set ref 421% 525% 
527 
trans ‘000102 constant entry) external del 473 ref 485 
trans msg based structure level i unaligned dol 118 set ref 394 431 
unit price 4 based ‘picture(8) level 2 packed unaligned del 118 set ref 4O7* 421 
. 525% 
widget name based char (16) level 2 packed unaligned dcl 118 set ref 400* 525* 
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NAMES DECLARED BY EXPLICIT CONTEXT. | | | :. 


add return point 003465 constant label - del 440 ref 405 

bottom _of trans - 001025 constant label | dol 531 

print message .. 004330 constant entry internal del 520 ref 228 257 268 302 332 359 380 
read Label ‘ 000000 constant label array(6) del 210 ref 208 
trans . 000570 constant entry : external del 1 

trans add , 002644 constant entry - internal del 387 ref 1T1 
trans count -. 004122 constant entry internal del 496 ref 175 
trans delete - 003466 constant entry internal dol 443 ref 172 
trans read 001026 constant entry internal del 179 ref 173 
trans summary 003727 constant entry internal dol 471 ref 174 
NAMES DECLARED BY CONTEXT OR IMPLICATION. 

empty builtin function . ref 145 

null builtin funotion ref 481 481 492 492 


STORAGE REQUIREMENTS FOR THIS PROGRAM. | 


Ob ject Text Link Symbol Defs Statia 
Start 0 0 5024 5130 4501 5034 
Length 5462 4501 104 315 322 6 
BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME 
trans 2555 external procedure is an external procedure. 
trans read , internal procedure shares stack frame of external procedure trans. 
trans add 262 internal procedure enables or reverts conditions. 
on unit on line 403 94 on unit. 
trans delete internal procedure shares stack frame of external procedure trans. 
trans _ Summary internal procedure shares stack frame of external procedure trans. 
trans count internal procedure shares stack frame of external procedure trans. 
print message ; internal procedure shares stack frame of external procedure trans. 
STORAGE FOR INTERNAL STATIC VARIABLES. 
LOC IDENTIFIER BLOCK NAME 
000010 grand total dollars trans 
000013 silent trans 
000014 current _message id trans 


STORAGE FOR AUTOMATIC VARIABLES. 


t 


STACK FRAME LOC IDENTIFIER BLOCK NAME 
trans 000100 areap trans 
000102 argp trans 
000104 messagep trans 
000106 arg list ptr trans 
000110 ms_arg_ptr trans 
‘- 000112 code trans 
000113 binary number_sold trans 
0001714 index trans 
000115 looping index trans 
000116 own ~ trans 
000117 nargs trans 
000120 argi trans 
000122 auto area : trans 
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004122 string trans 


004130 binary _time trans 

004132 message_ count trans 
THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. 
reas. call. ext_out_ desc call _ext_out - call _ int this return tra_ext 
enable ext_entry int entry any to any tr . unpack pic. alloc_based 
empty ys 
THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. 
clock com err cu_$arg_ count eu $arg_ list ptr 
cu_$arg_ptr cu_$arg_ptr_rel ev_dec_ check_ date time 
1oa_ iox_$contro message segment $add_index message segment _$close 


message_ segment _$delete_ index message_ segment_ suet message count_ index 

message segment _. $inoremental read_ index message segment $open | 
message "segment _ ~$own incremental Tread_ index message - segment _ | $own_ read_ index 
message Segment __  $read_ index trans 


THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. 
error table $bad arg error table $bigarg error table $moderr 


aa eo ae _ error table $no_message 
error table $too many args error_ “table _Swrong_ no_of args lox _$user_ 10, 


WARNING 235 ON LINE 407 
"arg" has been converted from a string value to an arithmetic value. 


WARNING 235 ON LINE 436 
"current_message id" has been converted from a string value to an ‘arithmetic value. 


WARNING 235 ON LINE 524 
"ms_id" has been converted from a string value to an arithmetic value. 


LINE Loc LINE LOC LINE LOC LINE Loc LINE LOC LINE LOC LINE LOC 
1 000567 128 000575 129 000577 145 000601 160 000604 161 000613 162 000615 
167 000643 169 000644 170 000663 171 000672 172 000715 173 000732 174 000747 
175 000764 176 001001 - 177 001024 531 001025 179 001026 181 001027 “182 001032 
183 001053 188 001054 189 001055 190 001076 191 001112 193 001114 194 001117 
195 001140 199 OO1141 200 001166 201 001170 202 001224 205 001225 206 001227 
208 001234 210 001236 213 001241 214 001265 218 001266 220 001310 222 001336 
223 001340 224 001355 225 001366 228 001367 230 001370 231 001401 233 001402 
237 001423 238 001427 240 001447 241 001453 242 001467 243 001500 245 001501 
247 001503 248 001505 249 001544 250 001555 253 001556 255 001561 257 001565 
258 001566 259 001573 261 001615 263 001616 266 001617 268 001623 269 001624 
270 001631 272 001653 276 001654 277 001664 278 001665 282 001670 283 001714 
287 001715 289 001737 291 001765 292 001771 293 002005 294 002016 296 002017 
297 002021 298 002044 299 002055 302 002056 304 002057 305 002064 306 002074 
308 002075 312 002100 313 002124 317 002125 319 002147 321 002175 322 002201 
323 002215 324 002226 326 002227 327 002231 328 002254 329 002265 332 002266 
334 002267 335 002274 336 002304 338 002305 343 002326 344 002332 346 002352 
347 002356 348 002372 349 002403 351 002404 353 002406 354 002410 355 002447 
356 002460 359 002461 360 002462 362 002467 363 002477 364 002500 369 002521 
370 002525 372 002545 374% 002547 375 002553 376 002612 377 002623 380 002624 
381 002625 383 002632 384 002642 387 002643 388 002651 389 002655 391 002700 


394% 002701 395 002710 396 002731 397 002735 398 002761 400 002762 402 002767 


403 003010 404 003024 405 003047 407 003052 408 003071 - 409 003072 #10 003113 
411 003137 412 003142 413 003166 415 003167 416 003172 417 003216 419 003217 
421 003223 ’ 425 003244 426 003271 427 003274 428 003330 ~ 430 003331 431 003340 
433 003362 435 003412 436 003415 437 003432 439 003453 HHO 003465 443 003466 
HHS 003467 446 003472 448 003516 _ 450 003517 451 003522 453 003546 456 003547 
457 003573 458 003575 459 003631 461 003632 462 003645 463 003647 464 003652 
465 003670 ~ 466 003671 467 003715 469 003726 471 003727 475 003730 476 003733 
478 003757 481 003760 482 004012 483 004015 485 004021 487 004041 489 004062 
890 004064 492 004070 ugh 004121 496 004122 500 004123 501 004126 503 004152 
506 004153 507 004200 508 004202 509 004236 512 004237. 513 004252 514 004301 
516 004316 518 004327 ‘520 004330 524 004331 525 004352 527 004425 529 004453 
so. 
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